home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 15.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 34 39 3a 32 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:49:21 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 67 61 6d 65 |s-20.3/l|isp/game|
|000000a0| 73 2f 63 6f 6e 78 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |s/conx.e|l.;;; em|
|000000b0| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 32 30 2e 34 |acs vers|ion 20.4|
|000000c0| 20 22 45 6d 65 72 61 6c | 64 22 20 58 45 6d 61 63 | "Emeral|d" XEmac|
|000000d0| 73 20 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |s Lucid|..;;; by|
|000000e0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000f0| 2e 32 35 20 58 45 6d 61 | 63 73 3b 20 32 32 2d 4d |.25 XEma|cs; 22-M|
|00000100| 61 72 2d 39 36 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ar-96..;|;; optim|
|00000110| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000120| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000130| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000140| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000150| 45 6d 61 63 73 20 31 39 | 2e 0a 0a 28 69 66 20 28 |Emacs 19|...(if (|
|00000160| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000170| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000180| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000190| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|000001a0| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|000001b0| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |. (s|tring-le|
|000001c0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001d0| 6e 20 22 32 30 22 29 29 | 29 0a 20 20 20 20 28 65 |n "20"))|). (e|
|000001e0| 72 72 6f 72 20 22 60 63 | 6f 6e 78 2e 65 6c 27 20 |rror "`c|onx.el' |
|000001f0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|00000200| 20 45 6d 61 63 73 20 32 | 30 22 29 29 0a 0a 28 6f | Emacs 2|0"))..(o|
|00000210| 72 20 28 62 6f 75 6e 64 | 70 20 27 63 75 72 72 65 |r (bound|p 'curre|
|00000220| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 29 20 28 73 |nt-load-|list) (s|
|00000230| 65 74 71 20 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |etq curr|ent-load|
|00000240| 2d 6c 69 73 74 20 6e 69 | 6c 29 29 0a 0a 0a 28 62 |-list ni|l))...(b|
|00000250| 79 74 65 2d 63 6f 64 65 | 20 22 c0 11 c1 5c 6e 42 |yte-code| "...\nB|
|00000260| 12 c3 c4 21 ac 82 c5 14 | c4 5c 6e 42 12 c3 c6 21 |...!....|.\nB...!|
|00000270| ac 83 c7 16 06 c6 5c 6e | 42 12 c8 16 09 c9 5c 6e |......\n|B.....\n|
|00000280| 42 12 c8 16 5c 6e ca 5c | 6e 42 12 cb 16 0c cc 5c |B...\n.\|nB.....\|
|00000290| 6e 42 12 c8 16 0d cd 5c | 6e 42 12 c8 87 22 20 5b |nB.....\|nB..." [|
|000002a0| 22 31 2e 36 2c 20 20 36 | 2d 6d 61 79 2d 39 34 2e |"1.6, 6|-may-94.|
|000002b0| 22 20 63 6f 6e 78 2d 76 | 65 72 73 69 6f 6e 20 63 |" conx-v|ersion c|
|000002c0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|000002d0| 20 62 6f 75 6e 64 70 20 | 63 6f 6e 78 2d 62 6f 75 | boundp |conx-bou|
|000002e0| 6e 63 65 20 31 30 20 63 | 6f 6e 78 2d 68 61 73 68 |nce 10 c|onx-hash|
|000002f0| 74 61 62 6c 65 2d 73 69 | 7a 65 20 39 39 32 33 20 |table-si|ze 9923 |
|00000300| 6e 69 6c 20 63 6f 6e 78 | 2d 77 6f 72 64 73 2d 68 |nil conx|-words-h|
|00000310| 61 73 68 74 61 62 6c 65 | 20 63 6f 6e 78 2d 77 6f |ashtable| conx-wo|
|00000320| 72 64 73 2d 76 65 63 74 | 6f 72 20 30 20 63 6f 6e |rds-vect|or 0 con|
|00000330| 78 2d 77 6f 72 64 73 2d | 76 65 63 74 6f 72 2d 66 |x-words-|vector-f|
|00000340| 70 20 63 6f 6e 78 2d 6c | 61 73 74 2d 77 6f 72 64 |p conx-l|ast-word|
|00000350| 5d 20 32 29 0a 23 40 35 | 20 46 59 49 1f 0a 28 64 |] 2).#@5| FYI..(d|
|00000360| 65 66 76 61 72 20 63 6f | 6e 78 2d 66 69 6c 65 73 |efvar co|nx-files|
|00000370| 20 6e 69 6c 20 28 23 24 | 20 2e 20 38 35 37 29 29 | nil (#$| . 857))|
|00000380| 0a 23 40 34 31 20 46 6f | 72 67 65 74 20 74 68 65 |.#@41 Fo|rget the|
|00000390| 20 63 75 72 72 65 6e 74 | 20 77 6f 72 64 2d 66 72 | current| word-fr|
|000003a0| 65 71 75 65 6e 63 79 20 | 74 72 65 65 2e 1f 0a 28 |equency |tree...(|
|000003b0| 64 65 66 61 6c 69 61 73 | 20 27 63 6f 6e 78 2d 69 |defalias| 'conx-i|
|000003c0| 6e 69 74 20 23 5b 6e 69 | 6c 20 22 08 ab 8d 08 47 |nit #[ni|l "....G|
|000003d0| 09 59 ab 87 c2 08 c3 5c | 22 88 aa 85 c4 09 c3 5c |.Y.....\|"......\|
|000003e0| 22 10 0d ab 87 c2 0d c6 | 5c 22 88 aa 85 c4 c7 c6 |".......|\"......|
|000003f0| 5c 22 15 c3 16 08 c6 16 | 09 c6 89 16 5c 6e 87 22 |\"......|....\n."|
|00000400| 20 5b 63 6f 6e 78 2d 77 | 6f 72 64 73 2d 68 61 73 | [conx-w|ords-has|
|00000410| 68 74 61 62 6c 65 20 63 | 6f 6e 78 2d 68 61 73 68 |htable c|onx-hash|
|00000420| 74 61 62 6c 65 2d 73 69 | 7a 65 20 66 69 6c 6c 61 |table-si|ze filla|
|00000430| 72 72 61 79 20 30 20 6d | 61 6b 65 2d 76 65 63 74 |rray 0 m|ake-vect|
|00000440| 6f 72 20 63 6f 6e 78 2d | 77 6f 72 64 73 2d 76 65 |or conx-|words-ve|
|00000450| 63 74 6f 72 20 6e 69 6c | 20 31 30 30 30 20 63 6f |ctor nil| 1000 co|
|00000460| 6e 78 2d 77 6f 72 64 73 | 2d 76 65 63 74 6f 72 2d |nx-words|-vector-|
|00000470| 66 70 20 63 6f 6e 78 2d | 6c 61 73 74 2d 77 6f 72 |fp conx-|last-wor|
|00000480| 64 20 63 6f 6e 78 2d 66 | 69 6c 65 73 5d 20 33 20 |d conx-f|iles] 3 |
|00000490| 28 23 24 20 2e 20 39 30 | 32 29 20 6e 69 6c 5d 29 |(#$ . 90|2) nil])|
|000004a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 6f 6e 78 |.(defali|as 'conx|
|000004b0| 2d 72 65 68 61 73 68 20 | 23 5b 6e 69 6c 20 22 c0 |-rehash |#[nil ".|
|000004c0| c1 21 88 5c 6e 47 1b c4 | 0b 89 5c 5c c5 5c 22 1e |.!.\nG..|..\\.\".|
|000004d0| 06 c7 0b 57 ab 8e 0e 06 | 0b 53 5c 6e 0b 53 89 13 |...W....|.S\n.S..|
|000004e0| 48 49 88 aa 6d 0e 06 12 | 2a c0 c8 21 87 22 20 5b |HI..m...|*..!." [|
|000004f0| 6d 65 73 73 61 67 65 20 | 22 52 65 68 61 73 68 69 |message |"Rehashi|
|00000500| 6e 67 2e 2e 2e 22 20 63 | 6f 6e 78 2d 77 6f 72 64 |ng..." c|onx-word|
|00000510| 73 2d 76 65 63 74 6f 72 | 20 4c 20 6d 61 6b 65 2d |s-vector| L make-|
|00000520| 76 65 63 74 6f 72 20 6e | 69 6c 20 76 32 20 30 20 |vector n|il v2 0 |
|00000530| 22 52 65 68 61 73 68 69 | 6e 67 2e 2e 2e 64 6f 6e |"Rehashi|ng...don|
|00000540| 65 22 5d 20 35 5d 29 0a | 28 64 65 66 61 6c 69 61 |e"] 5]).|(defalia|
|00000550| 73 20 27 63 6f 6e 78 2d | 63 6f 75 6e 74 20 27 28 |s 'conx-|count '(|
|00000560| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 77 6f 72 64 29 |macro . |#[(word)|
|00000570| 20 22 c0 09 c2 45 87 22 | 20 5b 61 72 65 66 20 77 | "...E."| [aref w|
|00000580| 6f 72 64 20 30 5d 20 33 | 5d 29 29 0a 28 64 65 66 |ord 0] 3|])).(def|
|00000590| 61 6c 69 61 73 20 27 63 | 6f 6e 78 2d 63 61 70 20 |alias 'c|onx-cap |
|000005a0| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 77 6f 72 |'(macro |. #[(wor|
|000005b0| 64 29 20 22 c0 09 c2 45 | 87 22 20 5b 61 72 65 66 |d) "...E|." [aref|
|000005c0| 20 77 6f 72 64 20 31 5d | 20 33 5d 29 29 0a 28 64 | word 1]| 3])).(d|
|000005d0| 65 66 61 6c 69 61 73 20 | 27 63 6f 6e 78 2d 63 6f |efalias |'conx-co|
|000005e0| 6d 6d 61 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |mma '(ma|cro . #[|
|000005f0| 28 77 6f 72 64 29 20 22 | c0 09 c2 45 87 22 20 5b |(word) "|...E." [|
|00000600| 61 72 65 66 20 77 6f 72 | 64 20 32 5d 20 33 5d 29 |aref wor|d 2] 3])|
|00000610| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6f 6e |).(defal|ias 'con|
|00000620| 78 2d 70 65 72 69 6f 64 | 20 27 28 6d 61 63 72 6f |x-period| '(macro|
|00000630| 20 2e 20 23 5b 28 77 6f | 72 64 29 20 22 c0 09 c2 | . #[(wo|rd) "...|
|00000640| 45 87 22 20 5b 61 72 65 | 66 20 77 6f 72 64 20 33 |E." [are|f word 3|
|00000650| 5d 20 33 5d 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |] 3])).(|defalias|
|00000660| 20 27 63 6f 6e 78 2d 71 | 75 65 6d 20 27 28 6d 61 | 'conx-q|uem '(ma|
|00000670| 63 72 6f 20 2e 20 23 5b | 28 77 6f 72 64 29 20 22 |cro . #[|(word) "|
|00000680| c0 09 c2 45 87 22 20 5b | 61 72 65 66 20 77 6f 72 |...E." [|aref wor|
|00000690| 64 20 34 5d 20 33 5d 29 | 29 0a 28 64 65 66 61 6c |d 4] 3])|).(defal|
|000006a0| 69 61 73 20 27 63 6f 6e | 78 2d 62 61 6e 67 20 27 |ias 'con|x-bang '|
|000006b0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 77 6f 72 64 |(macro .| #[(word|
|000006c0| 29 20 22 c0 09 c2 45 87 | 22 20 5b 61 72 65 66 20 |) "...E.|" [aref |
|000006d0| 77 6f 72 64 20 35 5d 20 | 33 5d 29 29 0a 28 64 65 |word 5] |3])).(de|
|000006e0| 66 61 6c 69 61 73 20 27 | 63 6f 6e 78 2d 73 75 63 |falias '|conx-suc|
|000006f0| 63 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 77 |c '(macr|o . #[(w|
|00000700| 6f 72 64 29 20 22 c0 09 | c2 45 87 22 20 5b 61 72 |ord) "..|.E." [ar|
|00000710| 65 66 20 77 6f 72 64 20 | 36 5d 20 33 5d 29 29 0a |ef word |6] 3])).|
|00000720| 28 64 65 66 61 6c 69 61 | 73 20 27 63 6f 6e 78 2d |(defalia|s 'conx-|
|00000730| 70 72 65 64 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |pred '(m|acro . #|
|00000740| 5b 28 77 6f 72 64 29 20 | 22 c0 09 c2 45 87 22 20 |[(word) |"...E." |
|00000750| 5b 61 72 65 66 20 77 6f | 72 64 20 37 5d 20 33 5d |[aref wo|rd 7] 3]|
|00000760| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6f |)).(defa|lias 'co|
|00000770| 6e 78 2d 73 75 63 63 2d | 63 20 27 28 6d 61 63 72 |nx-succ-|c '(macr|
|00000780| 6f 20 2e 20 23 5b 28 77 | 6f 72 64 29 20 22 c0 09 |o . #[(w|ord) "..|
|00000790| c2 45 87 22 20 5b 61 72 | 65 66 20 77 6f 72 64 20 |.E." [ar|ef word |
|000007a0| 38 5d 20 33 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |8] 3])).|(defalia|
|000007b0| 73 20 27 63 6f 6e 78 2d | 70 72 65 64 2d 63 20 27 |s 'conx-|pred-c '|
|000007c0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 77 6f 72 64 |(macro .| #[(word|
|000007d0| 29 20 22 c0 09 c2 45 87 | 22 20 5b 61 72 65 66 20 |) "...E.|" [aref |
|000007e0| 77 6f 72 64 20 39 5d 20 | 33 5d 29 29 0a 28 62 79 |word 9] |3])).(by|
|000007f0| 74 65 2d 63 6f 64 65 20 | 22 c0 11 c1 5c 6e 42 12 |te-code |"...\nB.|
|00000800| c0 87 22 20 5b 31 30 20 | 63 6f 6e 78 2d 6c 65 6e |.." [10 |conx-len|
|00000810| 67 74 68 20 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |gth curr|ent-load|
|00000820| 2d 6c 69 73 74 5d 20 32 | 29 0a 28 64 65 66 61 6c |-list] 2|).(defal|
|00000830| 69 61 73 20 27 63 6f 6e | 78 2d 6d 61 6b 65 2d 77 |ias 'con|x-make-w|
|00000840| 6f 72 64 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |ord '(ma|cro . #[|
|00000850| 6e 69 6c 20 22 c0 87 22 | 20 5b 28 63 6f 70 79 2d |nil ".."| [(copy-|
|00000860| 73 65 71 75 65 6e 63 65 | 20 27 5b 31 20 30 20 30 |sequence| '[1 0 0|
|00000870| 20 30 20 30 20 30 20 6e | 69 6c 20 6e 69 6c 20 30 | 0 0 0 n|il nil 0|
|00000880| 20 30 5d 29 5d 20 31 5d | 29 29 0a 28 64 65 66 61 | 0])] 1]|)).(defa|
|00000890| 6c 69 61 73 20 27 63 6f | 6e 78 2d 73 65 74 66 20 |lias 'co|nx-setf |
|000008a0| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 66 6f 72 |'(macro |. #[(for|
|000008b0| 6d 20 76 61 6c 29 20 22 | c0 09 c2 c3 21 ad 81 0b |m val) "|....!...|
|000008c0| 5c 22 89 11 39 ab 85 c4 | 09 0d 45 87 09 40 c6 61 |\"..9...|..E..@.a|
|000008d0| ab 89 c7 c8 09 41 0d 43 | 5c 22 42 87 09 40 c9 61 |.....A.C|\"B..@.a|
|000008e0| ab 87 ca 09 41 40 0d 45 | 87 09 40 cb 61 ab 87 cc |....A@.E|..@.a...|
|000008f0| 09 41 40 0d 45 87 cd ce | 09 5c 22 87 22 20 5b 6d |.A@.E...|.\"." [m|
|00000900| 61 63 72 6f 65 78 70 61 | 6e 64 20 66 6f 72 6d 20 |acroexpa|nd form |
|00000910| 62 6f 75 6e 64 70 20 62 | 79 74 65 2d 63 6f 6d 70 |boundp b|yte-comp|
|00000920| 69 6c 65 2d 6d 61 63 72 | 6f 2d 65 6e 76 69 72 6f |ile-macr|o-enviro|
|00000930| 6e 6d 65 6e 74 20 73 65 | 74 71 20 76 61 6c 20 61 |nment se|tq val a|
|00000940| 72 65 66 20 61 73 65 74 | 20 61 70 70 65 6e 64 20 |ref aset| append |
|00000950| 63 64 72 20 73 65 74 63 | 64 72 20 63 61 72 20 73 |cdr setc|dr car s|
|00000960| 65 74 63 61 72 20 65 72 | 72 6f 72 20 22 63 61 6e |etcar er|ror "can|
|00000970| 27 74 20 73 65 74 66 20 | 25 73 22 5d 20 35 5d 29 |'t setf |%s"] 5])|
|00000980| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6f 6e |).(defal|ias 'con|
|00000990| 78 2d 70 75 73 68 20 27 | 28 6d 61 63 72 6f 20 2e |x-push '|(macro .|
|000009a0| 20 23 5b 28 74 68 69 6e | 67 20 6c 69 73 74 29 20 | #[(thin|g list) |
|000009b0| 22 c0 09 c2 0b 09 45 45 | 87 22 20 5b 63 6f 6e 78 |".....EE|." [conx|
|000009c0| 2d 73 65 74 66 20 6c 69 | 73 74 20 63 6f 6e 73 20 |-setf li|st cons |
|000009d0| 74 68 69 6e 67 5d 20 35 | 5d 29 29 0a 23 40 36 39 |thing] 5|])).#@69|
|000009e0| 20 54 68 65 20 6c 61 72 | 67 65 73 74 20 70 6f 73 | The lar|gest pos|
|000009f0| 69 74 69 76 65 20 69 6e | 74 65 67 65 72 20 74 68 |itive in|teger th|
|00000a00| 61 74 20 63 61 6e 20 62 | 65 20 72 65 70 72 65 73 |at can b|e repres|
|00000a10| 65 6e 74 65 64 20 69 6e | 20 74 68 69 73 20 65 6d |ented in| this em|
|00000a20| 61 63 73 2e 1f 0a 28 64 | 65 66 63 6f 6e 73 74 20 |acs...(d|efconst |
|00000a30| 63 6f 6e 78 2d 6d 6f 73 | 74 2d 70 6f 73 69 74 69 |conx-mos|t-positi|
|00000a40| 76 65 2d 66 69 78 6e 75 | 6d 20 28 62 79 74 65 2d |ve-fixnu|m (byte-|
|00000a50| 63 6f 64 65 20 22 c0 c1 | 89 5c 22 87 22 20 5b 6c |code "..|.\"." [l|
|00000a60| 73 68 20 2d 31 5d 20 33 | 29 20 28 23 24 20 2e 20 |sh -1] 3|) (#$ . |
|00000a70| 32 35 32 39 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |2529)).(|defalias|
|00000a80| 20 27 63 6f 6e 78 2d 72 | 61 6e 64 20 27 28 6d 61 | 'conx-r|and '(ma|
|00000a90| 63 72 6f 20 2e 20 23 5b | 28 6e 29 20 22 c0 c1 c2 |cro . #[|(n) "...|
|00000aa0| c3 45 0c 45 87 22 20 5b | 25 20 6c 6f 67 61 6e 64 |.E.E." [|% logand|
|00000ab0| 20 63 6f 6e 78 2d 6d 6f | 73 74 2d 70 6f 73 69 74 | conx-mo|st-posit|
|00000ac0| 69 76 65 2d 66 69 78 6e | 75 6d 20 28 72 61 6e 64 |ive-fixn|um (rand|
|00000ad0| 6f 6d 29 20 6e 5d 20 34 | 5d 29 29 0a 28 64 65 66 |om) n] 4|])).(def|
|00000ae0| 61 6c 69 61 73 20 27 63 | 6f 6e 78 2d 72 65 6c 61 |alias 'c|onx-rela|
|00000af0| 74 65 2d 73 75 63 63 20 | 27 28 6d 61 63 72 6f 20 |te-succ |'(macro |
|00000b00| 2e 20 23 5b 28 77 6f 72 | 64 20 72 65 6c 61 74 65 |. #[(wor|d relate|
|00000b10| 64 29 20 22 c0 c1 c2 0b | 44 44 43 c4 c0 c5 c6 0e |d) "....|DDC.....|
|00000b20| 07 c8 42 42 44 43 c9 c5 | ca cb cc 0e 07 cd 42 42 |..BBDC..|......BB|
|00000b30| ce 42 42 46 45 46 87 22 | 20 5b 6c 65 74 20 76 65 |.BBFEF."| [let ve|
|00000b40| 63 20 73 79 6d 62 6f 6c | 2d 76 61 6c 75 65 20 77 |c symbol|-value w|
|00000b50| 6f 72 64 20 28 63 6f 6e | 78 2d 73 65 74 66 20 28 |ord (con|x-setf (|
|00000b60| 63 6f 6e 78 2d 73 75 63 | 63 2d 63 20 76 65 63 29 |conx-suc|c-c vec)|
|00000b70| 20 28 31 2b 20 28 63 6f | 6e 78 2d 73 75 63 63 2d | (1+ (co|nx-succ-|
|00000b80| 63 20 76 65 63 29 29 29 | 20 72 65 6c 20 61 73 73 |c vec)))| rel ass|
|00000b90| 71 20 72 65 6c 61 74 65 | 64 20 28 28 63 6f 6e 78 |q relate|d ((conx|
|00000ba0| 2d 73 75 63 63 20 76 65 | 63 29 29 20 69 66 20 28 |-succ ve|c)) if (|
|00000bb0| 73 65 74 63 64 72 20 72 | 65 6c 20 28 31 2b 20 28 |setcdr r|el (1+ (|
|00000bc0| 63 64 72 20 72 65 6c 29 | 29 29 20 63 6f 6e 78 2d |cdr rel)|)) conx-|
|00000bd0| 70 75 73 68 20 63 6f 6e | 73 20 28 31 29 20 28 28 |push con|s (1) ((|
|00000be0| 63 6f 6e 78 2d 73 75 63 | 63 20 76 65 63 29 29 5d |conx-suc|c vec))]|
|00000bf0| 20 31 32 5d 29 29 0a 28 | 64 65 66 61 6c 69 61 73 | 12])).(|defalias|
|00000c00| 20 27 63 6f 6e 78 2d 72 | 65 6c 61 74 65 2d 70 72 | 'conx-r|elate-pr|
|00000c10| 65 64 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |ed '(mac|ro . #[(|
|00000c20| 77 6f 72 64 20 72 65 6c | 61 74 65 64 29 20 22 c0 |word rel|ated) ".|
|00000c30| c1 c2 0b 44 44 43 c4 c0 | c5 c6 0e 07 c8 42 42 44 |...DDC..|.....BBD|
|00000c40| 43 c9 c5 ca cb cc 0e 07 | cd 42 42 ce 42 42 46 45 |C.......|.BB.BBFE|
|00000c50| 46 87 22 20 5b 6c 65 74 | 20 76 65 63 20 73 79 6d |F." [let| vec sym|
|00000c60| 62 6f 6c 2d 76 61 6c 75 | 65 20 77 6f 72 64 20 28 |bol-valu|e word (|
|00000c70| 63 6f 6e 78 2d 73 65 74 | 66 20 28 63 6f 6e 78 2d |conx-set|f (conx-|
|00000c80| 70 72 65 64 2d 63 20 76 | 65 63 29 20 28 31 2b 20 |pred-c v|ec) (1+ |
|00000c90| 28 63 6f 6e 78 2d 70 72 | 65 64 2d 63 20 76 65 63 |(conx-pr|ed-c vec|
|00000ca0| 29 29 29 20 72 65 6c 20 | 61 73 73 71 20 72 65 6c |))) rel |assq rel|
|00000cb0| 61 74 65 64 20 28 28 63 | 6f 6e 78 2d 70 72 65 64 |ated ((c|onx-pred|
|00000cc0| 20 76 65 63 29 29 20 69 | 66 20 28 73 65 74 63 64 | vec)) i|f (setcd|
|00000cd0| 72 20 72 65 6c 20 28 31 | 2b 20 28 63 64 72 20 72 |r rel (1|+ (cdr r|
|00000ce0| 65 6c 29 29 29 20 63 6f | 6e 78 2d 70 75 73 68 20 |el))) co|nx-push |
|00000cf0| 63 6f 6e 73 20 28 31 29 | 20 28 28 63 6f 6e 78 2d |cons (1)| ((conx-|
|00000d00| 70 72 65 64 20 76 65 63 | 29 29 5d 20 31 32 5d 29 |pred vec|))] 12])|
|00000d10| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6f 6e |).(defal|ias 'con|
|00000d20| 78 2d 61 64 64 2d 77 6f | 72 64 20 27 28 6d 61 63 |x-add-wo|rd '(mac|
|00000d30| 72 6f 20 2e 20 23 5b 28 | 77 6f 72 64 29 20 22 c0 |ro . #[(|word) ".|
|00000d40| c1 09 44 c2 42 c3 42 42 | 87 22 20 5b 6c 65 74 2a |..D.B.BB|." [let*|
|00000d50| 20 77 6f 72 64 20 28 28 | 66 63 20 28 61 72 65 66 | word ((|fc (aref|
|00000d60| 20 77 6f 72 64 20 30 29 | 29 29 20 28 28 73 65 74 | word 0)|)) ((set|
|00000d70| 71 20 77 6f 72 64 20 28 | 69 6e 74 65 72 6e 20 28 |q word (|intern (|
|00000d80| 64 6f 77 6e 63 61 73 65 | 20 77 6f 72 64 29 20 63 |downcase| word) c|
|00000d90| 6f 6e 78 2d 77 6f 72 64 | 73 2d 68 61 73 68 74 61 |onx-word|s-hashta|
|00000da0| 62 6c 65 29 29 20 28 6c | 65 74 20 28 28 76 65 63 |ble)) (l|et ((vec|
|00000db0| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 77 6f | (and (b|oundp wo|
|00000dc0| 72 64 29 20 28 73 79 6d | 62 6f 6c 2d 76 61 6c 75 |rd) (sym|bol-valu|
|00000dd0| 65 20 77 6f 72 64 29 29 | 29 29 20 28 69 66 20 76 |e word))|)) (if v|
|00000de0| 65 63 20 28 63 6f 6e 78 | 2d 73 65 74 66 20 28 63 |ec (conx|-setf (c|
|00000df0| 6f 6e 78 2d 63 6f 75 6e | 74 20 76 65 63 29 20 28 |onx-coun|t vec) (|
|00000e00| 31 2b 20 28 63 6f 6e 78 | 2d 63 6f 75 6e 74 20 76 |1+ (conx|-count v|
|00000e10| 65 63 29 29 29 20 28 69 | 66 20 28 3d 20 63 6f 6e |ec))) (i|f (= con|
|00000e20| 78 2d 77 6f 72 64 73 2d | 76 65 63 74 6f 72 2d 66 |x-words-|vector-f|
|00000e30| 70 20 28 6c 65 6e 67 74 | 68 20 63 6f 6e 78 2d 77 |p (lengt|h conx-w|
|00000e40| 6f 72 64 73 2d 76 65 63 | 74 6f 72 29 29 20 28 63 |ords-vec|tor)) (c|
|00000e50| 6f 6e 78 2d 72 65 68 61 | 73 68 29 29 20 28 73 65 |onx-reha|sh)) (se|
|00000e60| 74 20 77 6f 72 64 20 28 | 73 65 74 71 20 76 65 63 |t word (|setq vec|
|00000e70| 20 28 63 6f 6e 78 2d 6d | 61 6b 65 2d 77 6f 72 64 | (conx-m|ake-word|
|00000e80| 29 29 29 20 28 61 73 65 | 74 20 63 6f 6e 78 2d 77 |))) (ase|t conx-w|
|00000e90| 6f 72 64 73 2d 76 65 63 | 74 6f 72 20 63 6f 6e 78 |ords-vec|tor conx|
|00000ea0| 2d 77 6f 72 64 73 2d 76 | 65 63 74 6f 72 2d 66 70 |-words-v|ector-fp|
|00000eb0| 20 77 6f 72 64 29 20 28 | 73 65 74 71 20 63 6f 6e | word) (|setq con|
|00000ec0| 78 2d 77 6f 72 64 73 2d | 76 65 63 74 6f 72 2d 66 |x-words-|vector-f|
|00000ed0| 70 20 28 31 2b 20 63 6f | 6e 78 2d 77 6f 72 64 73 |p (1+ co|nx-words|
|00000ee0| 2d 76 65 63 74 6f 72 2d | 66 70 29 29 29 20 28 6f |-vector-|fp))) (o|
|00000ef0| 72 20 28 3c 20 66 63 20 | 3f 41 29 20 28 3e 20 66 |r (< fc |?A) (> f|
|00000f00| 63 20 3f 5a 29 20 28 63 | 6f 6e 78 2d 73 65 74 66 |c ?Z) (c|onx-setf|
|00000f10| 20 28 63 6f 6e 78 2d 63 | 61 70 20 76 65 63 29 20 | (conx-c|ap vec) |
|00000f20| 28 31 2b 20 28 63 6f 6e | 78 2d 63 61 70 20 76 65 |(1+ (con|x-cap ve|
|00000f30| 63 29 29 29 29 29 20 28 | 69 66 20 63 6f 6e 78 2d |c))))) (|if conx-|
|00000f40| 6c 61 73 74 2d 77 6f 72 | 64 20 28 70 72 6f 67 6e |last-wor|d (progn|
|00000f50| 20 28 63 6f 6e 78 2d 72 | 65 6c 61 74 65 2d 73 75 | (conx-r|elate-su|
|00000f60| 63 63 20 63 6f 6e 78 2d | 6c 61 73 74 2d 77 6f 72 |cc conx-|last-wor|
|00000f70| 64 20 77 6f 72 64 29 20 | 28 63 6f 6e 78 2d 72 65 |d word) |(conx-re|
|00000f80| 6c 61 74 65 2d 70 72 65 | 64 20 77 6f 72 64 20 63 |late-pre|d word c|
|00000f90| 6f 6e 78 2d 6c 61 73 74 | 2d 77 6f 72 64 29 29 29 |onx-last|-word)))|
|00000fa0| 20 28 73 65 74 71 20 63 | 6f 6e 78 2d 6c 61 73 74 | (setq c|onx-last|
|00000fb0| 2d 77 6f 72 64 20 77 6f | 72 64 29 29 5d 20 33 5d |-word wo|rd))] 3]|
|00000fc0| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6f |)).(defa|lias 'co|
|00000fd0| 6e 78 2d 70 75 6e 78 20 | 27 28 6d 61 63 72 6f 20 |nx-punx |'(macro |
|00000fe0| 2e 20 23 5b 28 63 68 61 | 72 29 20 22 c0 c1 c2 c3 |. #[(cha|r) "....|
|00000ff0| 0b 44 c4 42 c5 42 42 45 | 87 22 20 5b 69 66 20 63 |.D.B.BBE|." [if c|
|00001000| 6f 6e 78 2d 6c 61 73 74 | 2d 77 6f 72 64 20 6c 65 |onx-last|-word le|
|00001010| 74 20 63 68 61 72 20 28 | 28 76 65 63 20 28 73 79 |t char (|(vec (sy|
|00001020| 6d 62 6f 6c 2d 76 61 6c | 75 65 20 63 6f 6e 78 2d |mbol-val|ue conx-|
|00001030| 6c 61 73 74 2d 77 6f 72 | 64 29 29 29 20 28 28 63 |last-wor|d))) ((c|
|00001040| 6f 6e 64 20 28 28 65 71 | 20 63 68 61 72 20 3f 5c |ond ((eq| char ?\|
|00001050| 2c 29 20 28 63 6f 6e 78 | 2d 73 65 74 66 20 28 63 |,) (conx|-setf (c|
|00001060| 6f 6e 78 2d 63 6f 6d 6d | 61 20 76 65 63 29 20 28 |onx-comm|a vec) (|
|00001070| 31 2b 20 28 63 6f 6e 78 | 2d 63 6f 6d 6d 61 20 76 |1+ (conx|-comma v|
|00001080| 65 63 29 29 29 29 20 28 | 28 6f 72 20 28 65 71 20 |ec)))) (|(or (eq |
|00001090| 63 68 61 72 20 3f 5c 2e | 29 20 28 65 71 20 63 68 |char ?\.|) (eq ch|
|000010a0| 61 72 20 3f 5c 3b 29 29 | 20 28 63 6f 6e 78 2d 73 |ar ?\;))| (conx-s|
|000010b0| 65 74 66 20 28 63 6f 6e | 78 2d 70 65 72 69 6f 64 |etf (con|x-period|
|000010c0| 20 76 65 63 29 20 28 31 | 2b 20 28 63 6f 6e 78 2d | vec) (1|+ (conx-|
|000010d0| 70 65 72 69 6f 64 20 76 | 65 63 29 29 29 20 28 73 |period v|ec))) (s|
|000010e0| 65 74 71 20 63 6f 6e 78 | 2d 6c 61 73 74 2d 77 6f |etq conx|-last-wo|
|000010f0| 72 64 20 6e 69 6c 29 29 | 20 28 28 65 71 20 63 68 |rd nil))| ((eq ch|
|00001100| 61 72 20 3f 5c 3f 29 20 | 28 63 6f 6e 78 2d 73 65 |ar ?\?) |(conx-se|
|00001110| 74 66 20 28 63 6f 6e 78 | 2d 71 75 65 6d 20 76 65 |tf (conx|-quem ve|
|00001120| 63 29 20 28 31 2b 20 28 | 63 6f 6e 78 2d 71 75 65 |c) (1+ (|conx-que|
|00001130| 6d 20 76 65 63 29 29 29 | 20 28 73 65 74 71 20 63 |m vec)))| (setq c|
|00001140| 6f 6e 78 2d 6c 61 73 74 | 2d 77 6f 72 64 20 6e 69 |onx-last|-word ni|
|00001150| 6c 29 29 20 28 28 65 71 | 20 63 68 61 72 20 3f 5c |l)) ((eq| char ?\|
|00001160| 21 29 20 28 63 6f 6e 78 | 2d 73 65 74 66 20 28 63 |!) (conx|-setf (c|
|00001170| 6f 6e 78 2d 62 61 6e 67 | 20 76 65 63 29 20 28 31 |onx-bang| vec) (1|
|00001180| 2b 20 28 63 6f 6e 78 2d | 62 61 6e 67 20 76 65 63 |+ (conx-|bang vec|
|00001190| 29 29 29 20 28 73 65 74 | 71 20 63 6f 6e 78 2d 6c |))) (set|q conx-l|
|000011a0| 61 73 74 2d 77 6f 72 64 | 20 6e 69 6c 29 29 29 29 |ast-word| nil))))|
|000011b0| 5d 20 35 5d 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |] 5])).(|defalias|
|000011c0| 20 27 63 6f 6e 78 69 66 | 79 2d 69 6e 74 65 72 6e | 'conxif|y-intern|
|000011d0| 61 6c 20 23 5b 6e 69 6c | 20 22 c0 89 19 1a 6d 3f |al #[nil| "....m?|
|000011e0| 85 7f 01 c3 c0 77 88 67 | c4 73 ab 8a c5 c0 77 88 |.....w.g|.s....w.|
|000011f0| c3 c0 77 88 aa 71 60 12 | c5 c0 77 88 68 c6 55 ab |..w..q`.|..w.h.U.|
|00001200| 83 c7 75 88 5c 6e 60 61 | ac 55 5c 6e 60 7b 89 11 |..u.\n`a|.U\n`{..|
|00001210| c8 6b ac 4c 09 89 1e 09 | ca 48 1e 0b cc 0e 09 97 |.k.L....|.H......|
|00001220| 0e 0d 5c 22 16 09 ce 0e | 09 21 ad 83 0e 09 4a 89 |..\"....|.!....J.|
|00001230| 1e 0f ab 8c 0e 0f ca 0e | 0f ca 48 54 49 88 aa a2 |........|..HTI...|
|00001240| 0e 10 0e 11 47 55 ab 83 | d2 20 88 0e 09 d3 d4 21 |....GU..|. .....!|
|00001250| 89 16 0f 4c 88 0e 11 0e | 10 0e 09 49 88 0e 10 54 |...L....|...I...T|
|00001260| 16 10 0e 0b d5 57 ac 90 | 0e 0b d6 56 ac 8a 0e 0f |.....W..|...V....|
|00001270| d7 0e 0f d7 48 54 49 88 | 29 0e 18 ab e4 0e 18 4a |....HTI.|)......J|
|00001280| 89 1e 0f d9 0e 0f d9 48 | 54 49 88 0e 09 0e 0f da |.......H|TI......|
|00001290| 48 b7 89 1e 1b ab 89 0e | 1b 89 41 54 a1 88 aa 8e |H.......|..AT....|
|000012a0| 0e 0f da 0e 09 d7 42 0e | 0f da 48 42 49 88 2a 0e |......B.|..HBI.*.|
|000012b0| 09 4a 89 1e 0f dc 0e 0f | dc 48 54 49 88 0e 18 0e |.J......|.HTI....|
|000012c0| 0f dd 48 b7 89 1e 1b ab | 89 0e 1b 89 41 54 a1 88 |..H.....|....AT..|
|000012d0| aa 8e 0e 0f dd 0e 18 d7 | 42 0e 0f dd 48 42 49 88 |........|B...HBI.|
|000012e0| 2a 0e 09 16 18 2a 0e 1e | 54 16 1e df c0 77 88 67 |*....*..|T....w.g|
|000012f0| 89 12 e0 73 83 04 00 0e | 18 83 04 00 5c 6e 0e 18 |...s....|....\n..|
|00001300| 4a 1e 0f 89 1e 21 e2 61 | ab 8c 0e 0f e3 0e 0f e3 |J....!.a|........|
|00001310| 48 54 49 88 aa c3 0e 21 | e4 61 ac 86 0e 21 e5 61 |HTI....!|.a...!.a|
|00001320| ab 8f 0e 0f e6 0e 0f e6 | 48 54 49 88 c0 16 18 aa |........|HTI.....|
|00001330| a8 0e 21 e7 61 ab 8f 0e | 0f e8 0e 0f e8 48 54 49 |..!.a...|.....HTI|
|00001340| 88 c0 16 18 aa 93 0e 21 | e9 61 ab 8d 0e 0f ea 0e |.......!|.a......|
|00001350| 0f ea 48 54 49 88 c0 16 | 18 2a 82 04 00 2a 87 22 |..HTI...|.*...*."|
|00001360| 20 5b 6e 69 6c 20 77 20 | 70 20 22 5e 41 2d 5a 61 | [nil w |p "^A-Za|
|00001370| 2d 7a 30 2d 39 27 22 20 | 28 3f 30 20 3f 31 20 3f |-z0-9'" |(?0 ?1 ?|
|00001380| 32 20 3f 33 20 3f 34 20 | 3f 35 20 3f 36 20 3f 37 |2 ?3 ?4 |?5 ?6 ?7|
|00001390| 20 3f 38 20 3f 39 20 3f | 5c 27 29 20 22 41 2d 5a | ?8 ?9 ?|\') "A-Z|
|000013a0| 61 2d 7a 30 2d 39 27 22 | 20 3f 5c 27 20 2d 31 20 |a-z0-9'"| ?\' -1 |
|000013b0| 22 6e 69 6c 22 20 77 6f | 72 64 20 30 20 66 63 20 |"nil" wo|rd 0 fc |
|000013c0| 69 6e 74 65 72 6e 20 63 | 6f 6e 78 2d 77 6f 72 64 |intern c|onx-word|
|000013d0| 73 2d 68 61 73 68 74 61 | 62 6c 65 20 62 6f 75 6e |s-hashta|ble boun|
|000013e0| 64 70 20 76 65 63 20 63 | 6f 6e 78 2d 77 6f 72 64 |dp vec c|onx-word|
|000013f0| 73 2d 76 65 63 74 6f 72 | 2d 66 70 20 63 6f 6e 78 |s-vector|-fp conx|
|00001400| 2d 77 6f 72 64 73 2d 76 | 65 63 74 6f 72 20 63 6f |-words-v|ector co|
|00001410| 6e 78 2d 72 65 68 61 73 | 68 20 63 6f 70 79 2d 73 |nx-rehas|h copy-s|
|00001420| 65 71 75 65 6e 63 65 20 | 5b 31 20 30 20 30 20 30 |equence |[1 0 0 0|
|00001430| 20 30 20 30 20 6e 69 6c | 20 6e 69 6c 20 30 20 30 | 0 0 nil| nil 0 0|
|00001440| 5d 20 3f 41 20 3f 5a 20 | 31 20 63 6f 6e 78 2d 6c |] ?A ?Z |1 conx-l|
|00001450| 61 73 74 2d 77 6f 72 64 | 20 38 20 36 20 72 65 6c |ast-word| 8 6 rel|
|00001460| 20 39 20 37 20 6e 20 22 | 20 09 5c 6e 0d 22 20 28 | 9 7 n "| .\n." (|
|00001470| 3f 5c 2c 20 3f 5c 2e 20 | 3f 5c 21 20 3f 5c 3f 20 |?\, ?\. |?\! ?\? |
|00001480| 3f 5c 3b 29 20 63 68 61 | 72 20 3f 5c 2c 20 32 20 |?\;) cha|r ?\, 2 |
|00001490| 3f 5c 2e 20 3f 5c 3b 20 | 33 20 3f 5c 3f 20 34 20 |?\. ?\; |3 ?\? 4 |
|000014a0| 3f 5c 21 20 35 5d 20 36 | 5d 29 0a 23 40 35 34 20 |?\! 5] 6|]).#@54 |
|000014b0| 41 62 73 6f 72 62 20 74 | 68 65 20 74 65 78 74 20 |Absorb t|he text |
|000014c0| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |in the c|urrent b|
|000014d0| 75 66 66 65 72 20 69 6e | 74 6f 20 74 68 65 20 74 |uffer in|to the t|
|000014e0| 72 65 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ree...(d|efalias |
|000014f0| 27 63 6f 6e 78 2d 62 75 | 66 66 65 72 20 23 5b 6e |'conx-bu|ffer #[n|
|00001500| 69 6c 20 22 08 ac 83 c1 | 20 88 5c 6e c3 64 1c 1d |il "....| .\n.d..|
|00001510| 1e 06 8a 65 62 88 8c 7e | 88 60 89 16 07 0c 57 ab |...eb..~|.`....W.|
|00001520| a3 c8 c9 0c c3 23 88 0e | 07 60 7d 88 0e 07 60 16 |.....#..|.`}...`.|
|00001530| 07 62 88 ca 20 88 7e 88 | cb cc 0e 07 cd 5f 64 a5 |.b.. .~.|....._d.|
|00001540| 5c 22 88 aa 55 2a 0e 0e | ab 88 0e 0f 0e 0e 43 a4 |\"..U*..|......C.|
|00001550| 16 0f cb d0 0d 5c 6e 0e | 06 5a 23 2b 87 22 20 5b |.....\n.|.Z#+." [|
|00001560| 63 6f 6e 78 2d 77 6f 72 | 64 73 2d 76 65 63 74 6f |conx-wor|ds-vecto|
|00001570| 72 20 63 6f 6e 78 2d 69 | 6e 69 74 20 63 6f 6e 78 |r conx-i|nit conx|
|00001580| 2d 77 6f 72 64 73 2d 76 | 65 63 74 6f 72 2d 66 70 |-words-v|ector-fp|
|00001590| 20 30 20 70 6d 20 6e 20 | 69 20 70 20 73 65 61 72 | 0 pm n |i p sear|
|000015a0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5c 6e 5c 6e |ch-forwa|rd "\n\n|
|000015b0| 22 20 63 6f 6e 78 69 66 | 79 2d 69 6e 74 65 72 6e |" conxif|y-intern|
|000015c0| 61 6c 20 6d 65 73 73 61 | 67 65 20 22 25 64 25 25 |al messa|ge "%d%%|
|000015d0| 2e 2e 2e 22 20 31 30 30 | 20 62 75 66 66 65 72 2d |..." 100| buffer-|
|000015e0| 66 69 6c 65 2d 6e 61 6d | 65 20 63 6f 6e 78 2d 66 |file-nam|e conx-f|
|000015f0| 69 6c 65 73 20 22 25 73 | 20 77 6f 72 64 73 2c 20 |iles "%s| words, |
|00001600| 25 64 20 75 6e 69 71 75 | 65 22 5d 20 35 20 28 23 |%d uniqu|e"] 5 (#|
|00001610| 24 20 2e 20 35 32 39 36 | 29 20 6e 69 6c 5d 29 0a |$ . 5296|) nil]).|
|00001620| 23 40 35 34 20 41 62 73 | 6f 72 62 20 74 68 65 20 |#@54 Abs|orb the |
|00001630| 74 65 78 74 20 69 6e 20 | 74 68 65 20 63 75 72 72 |text in |the curr|
|00001640| 65 6e 74 20 72 65 67 69 | 6f 6e 20 69 6e 74 6f 20 |ent regi|on into |
|00001650| 74 68 65 20 74 72 65 65 | 2e 1f 0a 28 64 65 66 61 |the tree|...(defa|
|00001660| 6c 69 61 73 20 27 63 6f | 6e 78 2d 72 65 67 69 6f |lias 'co|nx-regio|
|00001670| 6e 20 23 5b 28 70 20 6d | 29 20 22 8c 7e 88 08 09 |n #[(p m|) ".~...|
|00001680| 7d 88 c2 20 29 87 22 20 | 5b 70 20 6d 20 63 6f 6e |}.. )." |[p m con|
|00001690| 78 2d 62 75 66 66 65 72 | 5d 20 32 20 28 23 24 20 |x-buffer|] 2 (#$ |
|000016a0| 2e 20 35 36 36 39 29 20 | 22 72 22 5d 29 0a 23 40 |. 5669) |"r"]).#@|
|000016b0| 33 39 20 43 6f 6e 78 69 | 66 79 20 61 20 62 75 66 |39 Conxi|fy a buf|
|000016c0| 66 65 72 20 69 6e 20 2f | 62 69 6e 2f 6d 61 69 6c |fer in /|bin/mail|
|000016d0| 20 66 6f 72 6d 61 74 2e | 1f 0a 28 64 65 66 61 6c | format.|..(defal|
|000016e0| 69 61 73 20 27 63 6f 6e | 78 2d 6d 61 69 6c 2d 62 |ias 'con|x-mail-b|
|000016f0| 75 66 66 65 72 20 23 5b | 6e 69 6c 20 22 8a 65 62 |uffer #[|nil ".eb|
|00001700| 88 c0 c1 77 88 c1 89 89 | 89 89 1a 1b 1c 1d 1e 06 |...w....|........|
|00001710| c7 c8 21 ac 84 c9 ca 21 | 88 6d ac ad cb cc c1 cd |..!....!|.m......|
|00001720| 23 88 60 14 cb ce c1 cd | 23 88 60 89 13 12 cf d0 |#.`.....|#.`.....|
|00001730| c1 d1 23 ab 8a d2 60 0b | 5c 22 d3 57 ab 82 60 13 |..#...`.|\".W..`.|
|00001740| d4 0c 60 5c 22 88 5c 6e | 62 88 aa 50 2d 0d ad 88 |..`\".\n|b..P-...|
|00001750| 0e 15 0d 43 a4 89 16 15 | 29 87 22 20 5b 22 5c 6e |...C....|)." ["\n|
|00001760| 20 09 22 20 6e 69 6c 20 | 70 33 20 70 32 20 70 20 | ." nil |p3 p2 p |
|00001770| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00001780| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00001790| 68 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 5e 46 |h lookin|g-at "^F|
|000017a0| 72 6f 6d 20 22 20 65 72 | 72 6f 72 20 22 6e 6f 74 |rom " er|ror "not|
|000017b0| 20 69 6e 20 2f 62 69 6e | 2f 6d 61 69 6c 20 66 6f | in /bin|/mail fo|
|000017c0| 72 6d 61 74 22 20 73 65 | 61 72 63 68 2d 66 6f 72 |rmat" se|arch-for|
|000017d0| 77 61 72 64 20 22 5c 6e | 5c 6e 22 20 30 20 22 5c |ward "\n|\n" 0 "\|
|000017e0| 6e 46 72 6f 6d 20 22 20 | 72 65 2d 73 65 61 72 63 |nFrom " |re-searc|
|000017f0| 68 2d 62 61 63 6b 77 61 | 72 64 20 22 5c 6e 2d 2d |h-backwa|rd "\n--|
|00001800| 2b 5c 6e 22 20 74 20 63 | 6f 75 6e 74 2d 6c 69 6e |+\n" t c|ount-lin|
|00001810| 65 73 20 39 20 63 6f 6e | 78 2d 72 65 67 69 6f 6e |es 9 con|x-region|
|00001820| 20 63 6f 6e 78 2d 66 69 | 6c 65 73 5d 20 35 20 28 | conx-fi|les] 5 (|
|00001830| 23 24 20 2e 20 35 38 31 | 31 29 20 6e 69 6c 5d 29 |#$ . 581|1) nil])|
|00001840| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 6f 6e 78 |.(defali|as 'conx|
|00001850| 2d 72 61 6e 64 6f 6d 2d | 72 65 6c 61 74 65 64 20 |-random-|related |
|00001860| 23 5b 28 63 6f 75 6e 74 | 20 6c 69 73 74 29 20 22 |#[(count| list) "|
|00001870| 08 c1 55 ab 83 c1 aa 87 | c2 0b c4 20 5c 22 08 a6 |..U.....|... \"..|
|00001880| c5 1e 06 1e 07 0e 08 ab | a6 0e 07 0e 08 40 41 58 |........|.....@AX|
|00001890| ab 8c 0e 08 40 40 16 06 | c5 89 16 08 aa 69 0e 07 |....@@..|.....i..|
|000018a0| 0e 08 40 41 5a 16 07 0e | 08 41 89 16 08 ac 5a 0e |..@AZ...|.A....Z.|
|000018b0| 06 2a 87 22 20 5b 63 6f | 75 6e 74 20 30 20 6c 6f |.*." [co|unt 0 lo|
|000018c0| 67 61 6e 64 20 63 6f 6e | 78 2d 6d 6f 73 74 2d 70 |gand con|x-most-p|
|000018d0| 6f 73 69 74 69 76 65 2d | 66 69 78 6e 75 6d 20 72 |ositive-|fixnum r|
|000018e0| 61 6e 64 6f 6d 20 6e 69 | 6c 20 61 6e 73 20 66 6f |andom ni|l ans fo|
|000018f0| 6c 6c 20 6c 69 73 74 5d | 20 34 5d 29 0a 28 64 65 |ll list]| 4]).(de|
|00001900| 66 61 6c 69 61 73 20 27 | 63 6f 6e 78 2d 72 61 6e |falias '|conx-ran|
|00001910| 64 6f 6d 2d 73 75 63 63 | 20 23 5b 28 77 6f 72 64 |dom-succ| #[(word|
|00001920| 29 20 22 08 4a c1 48 c2 | 55 ab 82 08 87 c3 08 4a |) ".J.H.|U......J|
|00001930| c1 48 08 4a c4 48 5c 22 | 1d c6 0e 07 c8 20 5c 22 |.H.J.H\"|..... \"|
|00001940| 0e 09 a6 c2 55 ab 8e ca | c3 0d 4a cb 48 0d 4a cc |....U...|..J.H.J.|
|00001950| 48 5c 22 21 aa 81 0d 29 | 87 22 20 5b 77 6f 72 64 |H\"!...)|." [word|
|00001960| 20 38 20 30 20 63 6f 6e | 78 2d 72 61 6e 64 6f 6d | 8 0 con|x-random|
|00001970| 2d 72 65 6c 61 74 65 64 | 20 36 20 6e 65 78 74 20 |-related| 6 next |
|00001980| 6c 6f 67 61 6e 64 20 63 | 6f 6e 78 2d 6d 6f 73 74 |logand c|onx-most|
|00001990| 2d 70 6f 73 69 74 69 76 | 65 2d 66 69 78 6e 75 6d |-positiv|e-fixnum|
|000019a0| 20 72 61 6e 64 6f 6d 20 | 63 6f 6e 78 2d 62 6f 75 | random |conx-bou|
|000019b0| 6e 63 65 20 63 6f 6e 78 | 2d 72 61 6e 64 6f 6d 2d |nce conx|-random-|
|000019c0| 73 75 63 63 20 39 20 37 | 5d 20 35 5d 29 0a 28 64 |succ 9 7|] 5]).(d|
|000019d0| 65 66 61 6c 69 61 73 20 | 27 63 6f 6e 78 2d 73 65 |efalias |'conx-se|
|000019e0| 6e 74 65 6e 63 65 20 23 | 5b 6e 69 6c 20 22 08 c1 |ntence #|[nil "..|
|000019f0| 56 ac 84 c2 c3 21 88 0c | c5 0e 06 c7 20 5c 22 08 |V....!..|.... \".|
|00001a00| a6 48 1e 08 c9 1e 5c 6e | 60 1e 0b cc 1e 0d cc 1e |.H....\n|`.......|
|00001a10| 0e cc 1e 0f 0e 08 83 00 | 01 c5 0e 06 c7 20 5c 22 |........|..... \"|
|00001a20| 0e 08 4a 89 16 0d c1 48 | a6 16 0e 0e 5c 6e ac 8b |..J....H|....\n..|
|00001a30| 0e 0d c1 48 0e 0d d0 48 | 55 ab 99 cc 16 5c 6e d1 |...H...H|U....\n.|
|00001a40| 0e 08 21 89 16 0f c1 48 | d2 5c 5c 63 88 0e 0f d0 |..!....H|.\\c....|
|00001a50| cc 4f 63 88 aa 86 d1 0e | 08 21 63 88 0e 0e 0e 0d |.Oc.....|.!c.....|
|00001a60| d3 48 57 ab 85 d4 63 88 | aa fb 0e 0e 0e 0d d3 48 |.HW...c.|.......H|
|00001a70| 5a 89 16 0e 0e 0d d5 48 | 57 ab aa cc 16 08 c5 0e |Z......H|W.......|
|00001a80| 06 c7 20 5c 22 d6 a6 c1 | 55 ab 96 c5 0e 06 c7 20 |.. \"...|U...... |
|00001a90| 5c 22 d7 a6 c1 55 ab 85 | d8 63 88 aa ca d9 63 88 |\"...U..|.c....c.|
|00001aa0| aa c5 da 63 88 aa c0 0e | 0e 0e 0d d5 48 5a 89 16 |...c....|....HZ..|
|00001ab0| 0e 0e 0d d7 48 57 ab 88 | cc 16 08 db 63 88 aa a7 |....HW..|....c...|
|00001ac0| 0e 0e 0e 0d d7 48 5a 89 | 16 0e 0e 0d d6 48 57 ab |.....HZ.|.....HW.|
|00001ad0| 88 cc 16 08 dc 63 88 aa | 8e dd 63 88 0e 0d de 48 |.....c..|..c....H|
|00001ae0| c1 55 ab 83 cc 16 08 0e | 08 83 24 00 df 0e 08 21 |.U......|..$....!|
|00001af0| 89 16 08 84 29 00 e0 8a | 0e 0b 62 88 c1 79 88 60 |....)...|..b..y.`|
|00001b00| 29 60 5c 22 88 68 e1 55 | ab 98 c5 0e 06 c7 20 5c |)`\".h.U|...... \|
|00001b10| 22 d7 a6 c1 55 ab 85 e2 | 63 88 aa 87 e3 e4 21 88 |"...U...|c.....!.|
|00001b20| e5 63 88 2e 06 cc 87 22 | 20 5b 63 6f 6e 78 2d 77 |.c....."| [conx-w|
|00001b30| 6f 72 64 73 2d 76 65 63 | 74 6f 72 2d 66 70 20 30 |ords-vec|tor-fp 0|
|00001b40| 20 65 72 72 6f 72 20 22 | 6e 6f 20 63 6f 6e 78 20 | error "|no conx |
|00001b50| 64 61 74 61 20 69 73 20 | 6c 6f 61 64 65 64 3b 20 |data is |loaded; |
|00001b60| 73 65 65 20 60 63 6f 6e | 78 2d 62 75 66 66 65 72 |see `con|x-buffer|
|00001b70| 27 2e 22 20 63 6f 6e 78 | 2d 77 6f 72 64 73 2d 76 |'." conx|-words-v|
|00001b80| 65 63 74 6f 72 20 6c 6f | 67 61 6e 64 20 63 6f 6e |ector lo|gand con|
|00001b90| 78 2d 6d 6f 73 74 2d 70 | 6f 73 69 74 69 76 65 2d |x-most-p|ositive-|
|00001ba0| 66 69 78 6e 75 6d 20 72 | 61 6e 64 6f 6d 20 77 6f |fixnum r|andom wo|
|00001bb0| 72 64 20 74 20 66 69 72 | 73 74 2d 70 20 70 20 6e |rd t fir|st-p p n|
|00001bc0| 69 6c 20 76 65 63 20 70 | 75 6e 63 20 73 74 72 20 |il vec p|unc str |
|00001bd0| 31 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 2d 33 |1 symbol|-name -3|
|00001be0| 32 20 32 20 22 2c 20 22 | 20 33 20 35 20 34 20 22 |2 2 ", "| 3 5 4 "|
|00001bf0| 3a 20 22 20 22 3b 20 22 | 20 22 2e 20 20 22 20 22 |: " "; "| ". " "|
|00001c00| 3f 20 20 22 20 22 21 20 | 20 22 20 22 20 22 20 38 |? " "! | " " " 8|
|00001c10| 20 63 6f 6e 78 2d 72 61 | 6e 64 6f 6d 2d 73 75 63 | conx-ra|ndom-suc|
|00001c20| 63 20 66 69 6c 6c 2d 72 | 65 67 69 6f 6e 2d 61 73 |c fill-r|egion-as|
|00001c30| 2d 70 61 72 61 67 72 61 | 70 68 20 3f 5c 6e 20 22 |-paragra|ph ?\n "|
|00001c40| 5c 6e 22 20 64 65 6c 65 | 74 65 2d 63 68 61 72 20 |\n" dele|te-char |
|00001c50| 2d 31 20 22 20 20 22 5d | 20 35 5d 29 0a 23 40 35 |-1 " "]| 5]).#@5|
|00001c60| 34 20 47 65 6e 65 72 61 | 74 65 20 73 6f 6d 65 20 |4 Genera|te some |
|00001c70| 72 61 6e 64 6f 6d 20 73 | 65 6e 74 65 6e 63 65 73 |random s|entences|
|00001c80| 20 69 6e 20 74 68 65 20 | 2a 63 6f 6e 78 2a 20 62 | in the |*conx* b|
|00001c90| 75 66 66 65 72 2e 1f 0a | 28 64 65 66 61 6c 69 61 |uffer...|(defalia|
|00001ca0| 73 20 27 63 6f 6e 78 20 | 23 5b 6e 69 6c 20 22 c0 |s 'conx |#[nil ".|
|00001cb0| c1 c2 21 71 21 88 c3 c4 | c2 21 21 88 c5 c6 21 88 |..!q!...|.!!...!.|
|00001cc0| 64 62 88 c7 68 c8 55 ab | 83 c9 aa 81 ca 21 88 cb |db..h.U.|.....!..|
|00001cd0| 20 88 aa 6c 22 20 5b 64 | 69 73 70 6c 61 79 2d 62 | ..l" [d|isplay-b|
|00001ce0| 75 66 66 65 72 20 67 65 | 74 2d 62 75 66 66 65 72 |uffer ge|t-buffer|
|00001cf0| 2d 63 72 65 61 74 65 20 | 22 2a 63 6f 6e 78 2a 22 |-create |"*conx*"|
|00001d00| 20 73 65 6c 65 63 74 2d | 77 69 6e 64 6f 77 20 67 | select-|window g|
|00001d10| 65 74 2d 62 75 66 66 65 | 72 2d 77 69 6e 64 6f 77 |et-buffe|r-window|
|00001d20| 20 6d 65 73 73 61 67 65 | 20 22 74 79 70 65 20 5e | message| "type ^|
|00001d30| 47 20 74 6f 20 73 74 6f | 70 2e 22 20 73 69 74 2d |G to sto|p." sit-|
|00001d40| 66 6f 72 20 3f 5c 6e 20 | 32 20 30 20 63 6f 6e 78 |for ?\n |2 0 conx|
|00001d50| 2d 73 65 6e 74 65 6e 63 | 65 5d 20 33 20 28 23 24 |-sentenc|e] 3 (#$|
|00001d60| 20 2e 20 37 32 36 36 29 | 20 6e 69 6c 5d 29 0a 23 | . 7266)| nil]).#|
|00001d70| 40 34 30 20 46 6f 72 20 | 75 73 65 20 61 73 20 61 |@40 For |use as a|
|00001d80| 20 67 6e 75 73 2d 73 65 | 6c 65 63 74 2d 61 72 74 | gnus-se|lect-art|
|00001d90| 69 63 6c 65 2d 68 6f 6f | 6b 2e 1f 0a 28 64 65 66 |icle-hoo|k...(def|
|00001da0| 61 6c 69 61 73 20 27 63 | 6f 6e 78 2d 67 6e 75 73 |alias 'c|onx-gnus|
|00001db0| 2d 73 6e 61 72 66 20 23 | 5b 6e 69 6c 20 22 08 71 |-snarf #|[nil ".q|
|00001dc0| 88 8a 8c 7e 88 65 62 88 | c1 c2 c3 c4 23 88 c5 60 |...~.eb.|....#..`|
|00001dd0| 64 5c 22 2a 87 22 20 5b | 67 6e 75 73 2d 61 72 74 |d\"*." [|gnus-art|
|00001de0| 69 63 6c 65 2d 62 75 66 | 66 65 72 20 73 65 61 72 |icle-buf|fer sear|
|00001df0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5c 6e 5c 6e |ch-forwa|rd "\n\n|
|00001e00| 22 20 6e 69 6c 20 74 20 | 63 6f 6e 78 2d 72 65 67 |" nil t |conx-reg|
|00001e10| 69 6f 6e 5d 20 34 20 28 | 23 24 20 2e 20 37 35 34 |ion] 4 (|#$ . 754|
|00001e20| 30 29 5d 29 0a 23 40 33 | 33 20 4d 72 2e 20 52 61 |0)]).#@3|3 Mr. Ra|
|00001e30| 6e 64 6f 6d 20 67 6f 65 | 73 20 74 6f 20 74 68 65 |ndom goe|s to the|
|00001e40| 20 61 6e 61 6c 79 73 74 | 2e 1f 0a 28 64 65 66 61 | analyst|...(defa|
|00001e50| 6c 69 61 73 20 27 70 73 | 79 63 68 6f 61 6e 61 6c |lias 'ps|ychoanal|
|00001e60| 79 7a 65 2d 63 6f 6e 78 | 20 23 5b 6e 69 6c 20 22 |yze-conx| #[nil "|
|00001e70| c0 20 88 c1 c2 21 88 c3 | c4 21 88 c5 c6 21 88 c7 |. ...!..|.!...!..|
|00001e80| 20 3f ad 97 c8 20 88 c9 | ca 21 c6 55 ab 83 c8 20 | ?... ..|.!.U... |
|00001e90| 88 c5 c6 21 88 cb cc 21 | 88 aa 64 87 22 20 5b 64 |...!...!|..d." [d|
|00001ea0| 6f 63 74 6f 72 20 6d 65 | 73 73 61 67 65 20 22 22 |octor me|ssage ""|
|00001eb0| 20 73 77 69 74 63 68 2d | 74 6f 2d 62 75 66 66 65 | switch-|to-buffe|
|00001ec0| 72 20 22 2a 64 6f 63 74 | 6f 72 2a 22 20 73 69 74 |r "*doct|or*" sit|
|00001ed0| 2d 66 6f 72 20 30 20 69 | 6e 70 75 74 2d 70 65 6e |-for 0 i|nput-pen|
|00001ee0| 64 69 6e 67 2d 70 20 63 | 6f 6e 78 2d 73 65 6e 74 |ding-p c|onx-sent|
|00001ef0| 65 6e 63 65 20 72 61 6e | 64 6f 6d 20 32 20 64 6f |ence ran|dom 2 do|
|00001f00| 63 74 6f 72 2d 72 65 74 | 2d 6f 72 2d 72 65 61 64 |ctor-ret|-or-read|
|00001f10| 20 31 5d 20 32 20 28 23 | 24 20 2e 20 37 37 32 32 | 1] 2 (#|$ . 7722|
|00001f20| 29 20 6e 69 6c 5d 29 0a | 23 40 31 32 35 20 53 61 |) nil]).|#@125 Sa|
|00001f30| 76 65 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 43 |ve the c|urrent C|
|00001f40| 4f 4e 58 20 64 61 74 61 | 62 61 73 65 20 74 6f 20 |ONX data|base to |
|00001f50| 61 20 66 69 6c 65 20 66 | 6f 72 20 66 75 74 75 72 |a file f|or futur|
|00001f60| 65 20 72 65 74 72 69 65 | 76 61 6c 2e 0a 59 6f 75 |e retrie|val..You|
|00001f70| 20 63 61 6e 20 72 65 2d | 6c 6f 61 64 20 74 68 69 | can re-|load thi|
|00001f80| 73 20 64 61 74 61 62 61 | 73 65 20 77 69 74 68 20 |s databa|se with |
|00001f90| 74 68 65 20 5c 5b 63 6f | 6e 78 2d 6c 6f 61 64 5d |the \[co|nx-load]|
|00001fa0| 20 63 6f 6d 6d 61 6e 64 | 2e 1f 0a 28 64 65 66 61 | command|...(defa|
|00001fb0| 6c 69 61 73 20 27 63 6f | 6e 78 2d 73 61 76 65 20 |lias 'co|nx-save |
|00001fc0| 23 5b 28 66 69 6c 65 29 | 20 22 8a c0 19 c0 8e c2 |#[(file)| "......|
|00001fd0| c3 21 89 11 71 88 65 64 | 7c 88 c4 63 88 c5 63 88 |.!..q.ed||..c..c.|
|00001fe0| 0e 06 ab 8b c7 c8 c9 0e | 06 ca 23 cb b1 03 88 cc |........|..#.....|
|00001ff0| cd 20 ce b1 03 88 60 cf | d0 d1 1e 12 1e 13 1e 14 |. ....`.|........|
|00002000| 1e 15 d6 63 88 0e 12 0e | 17 57 ab 94 d8 0e 19 0e |...c....|.W......|
|00002010| 12 48 70 5c 22 88 da 63 | 88 0e 12 54 89 16 12 aa |.Hp\"..c|...T....|
|00002020| 67 db 63 88 dc 0e 15 60 | 5c 22 88 cb 63 88 2c dd |g.c....`|\"..c.,.|
|00002030| de 0e 1f 5c 22 88 65 62 | 88 e0 e1 c0 e2 23 ab 86 |...\".eb|.....#..|
|00002040| e3 e4 21 88 aa 73 e5 0e | 26 21 88 e7 20 88 29 09 |..!..s..|&!.. .).|
|00002050| ad 83 e8 09 21 2a 87 22 | 20 5b 6e 69 6c 20 62 20 |....!*."| [nil b |
|00002060| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00002070| 65 20 22 2a 63 6f 6e 78 | 2d 73 61 76 65 2d 74 6d |e "*conx|-save-tm|
|00002080| 70 2a 22 20 22 3b 3b 3b | 20 2d 2a 2d 20 4d 6f 64 |p*" ";;;| -*- Mod|
|00002090| 65 3a 45 6d 61 63 73 2d | 4c 69 73 70 20 2d 2a 2d |e:Emacs-|Lisp -*-|
|000020a0| 5c 6e 22 20 22 3b 3b 3b | 20 54 68 69 73 20 69 73 |\n" ";;;| This is|
|000020b0| 20 61 20 43 4f 4e 58 20 | 64 61 74 61 62 61 73 65 | a CONX |database|
|000020c0| 20 66 69 6c 65 2e 20 20 | 4c 6f 61 64 20 69 74 20 | file. |Load it |
|000020d0| 77 69 74 68 20 60 63 6f | 6e 78 2d 6c 6f 61 64 27 |with `co|nx-load'|
|000020e0| 2e 5c 6e 22 20 63 6f 6e | 78 2d 66 69 6c 65 73 20 |.\n" con|x-files |
|000020f0| 22 3b 3b 3b 20 43 6f 72 | 70 75 73 3a 20 22 20 6d |";;; Cor|pus: " m|
|00002100| 61 70 63 6f 6e 63 61 74 | 20 69 64 65 6e 74 69 74 |apconcat| identit|
|00002110| 79 20 22 2c 20 22 20 22 | 5c 6e 22 20 22 3b 3b 3b |y ", " "|\n" ";;;|
|00002120| 20 44 61 74 65 3a 20 22 | 20 63 75 72 72 65 6e 74 | Date: "| current|
|00002130| 2d 74 69 6d 65 2d 73 74 | 72 69 6e 67 20 22 5c 6e |-time-st|ring "\n|
|00002140| 5c 6e 22 20 37 38 20 22 | 09 22 20 30 20 69 20 66 |\n" 78 "|." 0 i f|
|00002150| 69 6c 6c 2d 70 72 65 66 | 69 78 20 66 69 6c 6c 2d |ill-pref|ix fill-|
|00002160| 63 6f 6c 75 6d 6e 20 70 | 20 22 28 21 21 20 5b 09 |column p| "(!! [.|
|00002170| 22 20 63 6f 6e 78 2d 77 | 6f 72 64 73 2d 76 65 63 |" conx-w|ords-vec|
|00002180| 74 6f 72 2d 66 70 20 70 | 72 69 6e 31 20 63 6f 6e |tor-fp p|rin1 con|
|00002190| 78 2d 77 6f 72 64 73 2d | 76 65 63 74 6f 72 20 22 |x-words-|vector "|
|000021a0| 20 22 20 22 5d 29 5c 6e | 22 20 66 69 6c 6c 2d 72 | " "])\n|" fill-r|
|000021b0| 65 67 69 6f 6e 2d 61 73 | 2d 70 61 72 61 67 72 61 |egion-as|-paragra|
|000021c0| 70 68 20 6d 61 70 61 74 | 6f 6d 73 20 23 5b 28 73 |ph mapat|oms #[(s|
|000021d0| 79 6d 29 20 22 c0 09 21 | ad 93 c2 63 88 c3 09 70 |ym) "..!|...c...p|
|000021e0| 5c 22 88 c4 63 88 c3 09 | 4a 70 5c 22 88 c5 63 87 |\"..c...|Jp\"..c.|
|000021f0| 22 20 5b 62 6f 75 6e 64 | 70 20 73 79 6d 20 22 28 |" [bound|p sym "(|
|00002200| 21 20 22 20 70 72 69 6e | 31 20 22 20 22 20 22 29 |! " prin|1 " " ")|
|00002210| 5c 6e 22 5d 20 33 5d 20 | 63 6f 6e 78 2d 77 6f 72 |\n"] 3] |conx-wor|
|00002220| 64 73 2d 68 61 73 68 74 | 61 62 6c 65 20 72 65 2d |ds-hasht|able re-|
|00002230| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00002240| 5c 5c 62 6e 69 6c 5c 5c | 62 22 20 74 20 72 65 70 |\\bnil\\|b" t rep|
|00002250| 6c 61 63 65 2d 6d 61 74 | 63 68 20 22 28 29 22 20 |lace-mat|ch "()" |
|00002260| 73 65 74 2d 76 69 73 69 | 74 65 64 2d 66 69 6c 65 |set-visi|ted-file|
|00002270| 2d 6e 61 6d 65 20 66 69 | 6c 65 20 73 61 76 65 2d |-name fi|le save-|
|00002280| 62 75 66 66 65 72 20 6b | 69 6c 6c 2d 62 75 66 66 |buffer k|ill-buff|
|00002290| 65 72 5d 20 36 20 28 23 | 24 20 2e 20 37 39 38 32 |er] 6 (#|$ . 7982|
|000022a0| 29 20 22 46 53 61 76 65 | 20 43 4f 4e 58 20 63 6f |) "FSave| CONX co|
|000022b0| 72 70 75 73 20 74 6f 20 | 66 69 6c 65 3a 20 22 5d |rpus to |file: "]|
|000022c0| 29 0a 23 40 31 30 38 20 | 4c 6f 61 64 20 69 6e 20 |).#@108 |Load in |
|000022d0| 61 20 43 4f 4e 58 20 64 | 61 74 61 62 61 73 65 20 |a CONX d|atabase |
|000022e0| 77 72 69 74 74 65 6e 20 | 62 79 20 74 68 65 20 5c |written |by the \|
|000022f0| 5b 63 6f 6e 78 2d 73 61 | 76 65 5d 20 63 6f 6d 6d |[conx-sa|ve] comm|
|00002300| 61 6e 64 2e 0a 54 68 69 | 73 20 63 6c 65 61 72 73 |and..Thi|s clears|
|00002310| 20 74 68 65 20 64 61 74 | 61 62 61 73 65 20 63 75 | the dat|abase cu|
|00002320| 72 72 65 6e 74 6c 79 20 | 69 6e 20 6d 65 6d 6f 72 |rrently |in memor|
|00002330| 79 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |y...(def|alias 'c|
|00002340| 6f 6e 78 2d 6c 6f 61 64 | 20 23 5b 28 66 69 6c 65 |onx-load| #[(file|
|00002350| 29 20 22 c0 20 88 c1 c2 | 0b 5c 22 c4 4d 88 c1 c5 |) ". ...|.\".M...|
|00002360| 0b 5c 22 c6 4b 4d 88 0b | 1e 07 c8 0e 09 21 29 87 |.\".KM..|.....!).|
|00002370| 22 20 5b 63 6f 6e 78 2d | 69 6e 69 74 20 69 6e 74 |" [conx-|init int|
|00002380| 65 72 6e 20 22 21 21 22 | 20 63 6f 6e 78 2d 77 6f |ern "!!"| conx-wo|
|00002390| 72 64 73 2d 68 61 73 68 | 74 61 62 6c 65 20 23 5b |rds-hash|table #[|
|000023a0| 28 76 65 63 29 20 22 08 | 11 08 47 89 12 87 22 20 |(vec) ".|..G..." |
|000023b0| 5b 76 65 63 20 63 6f 6e | 78 2d 77 6f 72 64 73 2d |[vec con|x-words-|
|000023c0| 76 65 63 74 6f 72 20 63 | 6f 6e 78 2d 77 6f 72 64 |vector c|onx-word|
|000023d0| 73 2d 76 65 63 74 6f 72 | 2d 66 70 5d 20 32 5d 20 |s-vector|-fp] 2] |
|000023e0| 22 21 22 20 73 65 74 71 | 20 6f 62 61 72 72 61 79 |"!" setq| obarray|
|000023f0| 20 6c 6f 61 64 20 66 69 | 6c 65 5d 20 33 20 28 23 | load fi|le] 3 (#|
|00002400| 24 20 2e 20 38 39 30 34 | 29 20 22 66 4c 6f 61 64 |$ . 8904|) "fLoad|
|00002410| 20 43 4f 4e 58 20 63 6f | 72 70 75 73 20 66 72 6f | CONX co|rpus fro|
|00002420| 6d 20 66 69 6c 65 3a 20 | 22 5d 29 0a 28 64 65 66 |m file: |"]).(def|
|00002430| 61 6c 69 61 73 20 27 63 | 6f 6e 78 2d 65 6d 69 74 |alias 'c|onx-emit|
|00002440| 2d 63 2d 64 61 74 61 20 | 23 5b 28 26 6f 70 74 69 |-c-data |#[(&opti|
|00002450| 6f 6e 61 6c 20 61 6e 73 | 69 2d 70 29 20 22 c0 70 |onal ans|i-p) ".p|
|00002460| c0 89 89 89 c1 c0 89 89 | 1a 1b 1c 1d 1e 06 1e 07 |........|........|
|00002470| 1e 08 1e 09 1e 5c 6e 1e | 0b 0e 0c ac 84 cd ce 21 |.....\n.|.......!|
|00002480| 88 cf 1e 10 d1 d2 0e 0c | 5c 22 88 29 0e 0b 9f 89 |........|\".)....|
|00002490| 16 0b 47 d3 5f 13 d4 d5 | d6 21 ab 87 d7 0b 21 d8 |..G._...|.!....!.|
|000024a0| a5 aa 83 0b d8 a5 5d 12 | cf 14 0e 0b d9 c0 89 1e |......].|........|
|000024b0| 1a 1e 1b 1e 10 1e 1c dd | 63 88 0e 1c 83 fa 00 0e |........|c.......|
|000024c0| 1c 40 41 4a 89 16 1a de | 48 16 1b 0c 54 14 0e 1b |.@AJ....|H...T...|
|000024d0| ab b1 df 0e 1b 40 41 21 | 88 e0 63 88 df e1 0e 1b |.....@A!|..c.....|
|000024e0| 40 40 0e 0b 5c 22 40 21 | 88 e0 63 88 0e 10 54 89 |@@..\"@!|..c...T.|
|000024f0| 16 10 e2 56 ab 86 e3 63 | 88 cf 16 10 0e 1b 41 89 |...V...c|......A.|
|00002500| 16 1b ac 4f e4 e5 0c 5c | 6e a5 5c 22 88 0c 54 14 |...O...\|n.\"..T.|
|00002510| 0e 1a e6 48 89 16 1b ab | b1 df 0e 1b 40 41 21 88 |...H....|....@A!.|
|00002520| e0 63 88 df e1 0e 1b 40 | 40 0e 0b 5c 22 40 21 88 |.c.....@|@..\"@!.|
|00002530| e0 63 88 0e 10 54 89 16 | 10 e2 56 ab 86 e3 63 88 |.c...T..|..V...c.|
|00002540| cf 16 10 0e 1b 41 89 16 | 1b ac 4f e4 e5 0c 5c 6e |.....A..|..O...\n|
|00002550| a5 5c 22 88 0c 54 14 0e | 1c 41 89 16 1c 84 5f 00 |.\"..T..|.A...._.|
|00002560| 2c e7 63 88 0e 0b cf e8 | c0 89 1e 1a 1e 29 1e 2a |,.c.....|.....).*|
|00002570| 1e 10 89 1e 1c ab cb eb | 0e 1c 40 41 21 89 16 1a |........|..@A!...|
|00002580| 47 54 16 29 0e 10 0e 29 | 5c 5c 16 10 0e 2a 0e 29 |GT.)...)|\\...*.)|
|00002590| 5c 5c ec 5c 5c 89 16 2a | ed 56 ab 90 0e 2e ab 83 |\\.\\..*|.V......|
|000025a0| ef aa 81 f0 63 88 0e 29 | ec 5c 5c 16 2a 0e 1a 63 |....c..)|.\\.*..c|
|000025b0| 88 f1 63 88 e4 e5 0c 5c | 6e a5 5c 22 88 0c 54 14 |..c....\|n.\"..T.|
|000025c0| 0e 1c 41 89 16 1c ac 35 | 2d f2 63 88 0e 0b cf 89 |..A....5|-.c.....|
|000025d0| c0 89 89 1e 1a 1e 33 1e | 34 1e 2a 1e 10 89 1e 1c |......3.|4.*.....|
|000025e0| 83 53 02 0e 1c 40 16 34 | eb 0e 34 41 21 16 33 0e |.S...@.4|..4A!.3.|
|000025f0| 34 41 4a 16 1a f5 63 88 | df 0e 1a cf 48 21 88 e0 |4AJ...c.|....H!..|
|00002600| 63 88 df 0e 1a d4 48 21 | 88 e0 63 88 df 0e 1a f6 |c.....H!|..c.....|
|00002610| 48 21 88 e0 63 88 df 0e | 1a ec 48 21 88 e0 63 88 |H!..c...|..H!..c.|
|00002620| df 0e 1a d3 48 21 88 e0 | 63 88 df 0e 1a d9 48 21 |....H!..|c.....H!|
|00002630| 88 0e 1a de 48 ac 85 f7 | 63 88 aa 94 e0 63 88 df |....H...|c....c..|
|00002640| 0e 10 21 88 0e 10 0e 1a | de 48 47 f6 5f 5c 5c 16 |..!.....|.HG._\\.|
|00002650| 10 0e 1a e6 48 ac 85 f8 | 63 88 aa 97 e0 63 88 df |....H...|c....c..|
|00002660| 0e 10 21 88 e0 63 88 0e | 10 0e 1a e6 48 47 f6 5f |..!..c..|....HG._|
|00002670| 5c 5c 16 10 df 0e 1a f9 | 48 21 88 e0 63 88 df 0e |\\......|H!..c...|
|00002680| 1a fa 48 21 88 e0 63 88 | df 0e 2a 21 88 0e 2a 0e |..H!..c.|..*!..*.|
|00002690| 33 47 5c 5c d4 5c 5c 16 | 2a 0e 1c 41 ab 8f 0e 34 |3G\\.\\.|*..A...4|
|000026a0| 40 f6 a6 cf 55 ab 83 fb | aa 84 fc aa 81 fd 63 88 |@...U...|......c.|
|000026b0| e4 e5 0c 5c 6e a5 5c 22 | 88 0c 54 14 0e 1c 41 89 |...\n.\"|..T...A.|
|000026c0| 16 1c 84 77 01 2e 06 fe | 63 88 df 0e 3f 21 88 e3 |...w....|c...?!..|
|000026d0| 63 88 e4 81 40 00 21 2e | 5c 6e 87 22 20 5b 6e 69 |c...@.!.|\n." [ni|
|000026e0| 6c 20 22 25 2e 32 66 22 | 20 74 6f 74 61 6c 31 30 |l "%.2f"| total10|
|000026f0| 30 20 74 6f 74 61 6c 20 | 63 6f 75 6e 74 20 66 6c |0 total |count fl|
|00002700| 6f 61 74 2d 6f 75 74 70 | 75 74 2d 66 6f 72 6d 61 |oat-outp|ut-forma|
|00002710| 74 20 62 65 66 6f 72 65 | 2d 63 68 61 6e 67 65 2d |t before|-change-|
|00002720| 66 75 6e 63 74 69 6f 6e | 20 61 66 74 65 72 2d 63 |function| after-c|
|00002730| 68 61 6e 67 65 2d 66 75 | 6e 63 74 69 6f 6e 20 62 |hange-fu|nction b|
|00002740| 65 66 6f 72 65 2d 63 68 | 61 6e 67 65 2d 66 75 6e |efore-ch|ange-fun|
|00002750| 63 74 69 6f 6e 73 20 61 | 66 74 65 72 2d 63 68 61 |ctions a|fter-cha|
|00002760| 6e 67 65 2d 66 75 6e 63 | 74 69 6f 6e 73 20 73 74 |nge-func|tions st|
|00002770| 61 6e 64 61 72 64 2d 6f | 75 74 70 75 74 20 61 6c |andard-o|utput al|
|00002780| 6c 20 63 6f 6e 78 2d 77 | 6f 72 64 73 2d 68 61 73 |l conx-w|ords-has|
|00002790| 68 74 61 62 6c 65 20 65 | 72 72 6f 72 20 22 6e 6f |htable e|rror "no|
|000027a0| 20 77 6f 72 64 73 22 20 | 30 20 69 20 6d 61 70 61 | words" |0 i mapa|
|000027b0| 74 6f 6d 73 20 23 5b 28 | 78 29 20 22 c0 09 21 ad |toms #[(|x) "..!.|
|000027c0| 8a 5c 6e 09 42 0b 42 13 | 5c 6e 54 89 12 87 22 20 |.\n.B.B.|\nT..." |
|000027d0| 5b 62 6f 75 6e 64 70 20 | 78 20 69 20 61 6c 6c 5d |[boundp |x i all]|
|000027e0| 20 32 5d 20 34 20 31 20 | 66 65 61 74 75 72 65 70 | 2] 4 1 |featurep|
|000027f0| 20 6c 69 73 70 2d 66 6c | 6f 61 74 2d 74 79 70 65 | lisp-fl|oat-type|
|00002800| 20 66 6c 6f 61 74 20 31 | 30 30 20 35 20 77 6f 72 | float 1|00 5 wor|
|00002810| 64 20 72 65 73 74 32 20 | 72 65 73 74 20 22 73 74 |d rest2 |rest "st|
|00002820| 61 74 69 63 20 75 6e 73 | 69 67 6e 65 64 20 73 68 |atic uns|igned sh|
|00002830| 6f 72 74 20 44 5b 5d 20 | 3d 20 7b 22 20 37 20 70 |ort D[] |= {" 7 p|
|00002840| 72 69 6e 63 20 22 2c 22 | 20 72 61 73 73 71 20 31 |rinc ","| rassq 1|
|00002850| 30 20 22 5c 6e 22 20 6d | 65 73 73 61 67 65 20 22 |0 "\n" m|essage "|
|00002860| 57 72 69 74 69 6e 67 20 | 43 20 63 6f 64 65 2e 2e |Writing |C code..|
|00002870| 2e 20 25 73 25 25 22 20 | 36 20 22 30 7d 3b 5c 6e |. %s%%" |6 "0};\n|
|00002880| 73 74 61 74 69 63 20 63 | 68 61 72 20 54 5b 5d 20 |static c|har T[] |
|00002890| 3d 20 5c 22 22 20 32 30 | 20 6b 20 6a 20 73 79 6d |= \"" 20| k j sym|
|000028a0| 62 6f 6c 2d 6e 61 6d 65 | 20 33 20 37 37 20 61 6e |bol-name| 3 77 an|
|000028b0| 73 69 2d 70 20 22 5c 22 | 5c 6e 5c 22 22 20 22 5c |si-p "\"|\n\"" "\|
|000028c0| 5c 5c 6e 22 20 22 5c 5c | 30 30 30 22 20 22 5c 22 |\\n" "\\|000" "\"|
|000028d0| 3b 5c 6e 73 74 61 74 69 | 63 20 73 74 72 75 63 74 |;\nstati|c struct|
|000028e0| 20 63 6f 6e 78 5f 77 6f | 72 64 20 77 6f 72 64 73 | conx_wo|rd words|
|000028f0| 20 5b 5d 20 3d 20 7b 22 | 20 6e 61 6d 65 20 63 6f | [] = {"| name co|
|00002900| 6e 73 20 22 7b 22 20 32 | 20 22 2c 30 22 20 22 2c |ns "{" 2| ",0" ",|
|00002910| 30 2c 22 20 39 20 38 20 | 22 7d 2c 5c 6e 22 20 22 |0," 9 8 |"},\n" "|
|00002920| 7d 2c 22 20 22 7d 22 20 | 22 7d 3b 5c 6e 23 64 65 |}," "}" |"};\n#de|
|00002930| 66 69 6e 65 20 63 6f 6e | 78 5f 62 6f 75 6e 63 65 |fine con|x_bounce|
|00002940| 20 22 20 63 6f 6e 78 2d | 62 6f 75 6e 63 65 20 22 | " conx-|bounce "|
|00002950| 57 72 69 74 69 6e 67 20 | 43 20 63 6f 64 65 2e 2e |Writing |C code..|
|00002960| 2e 20 64 6f 6e 65 2e 22 | 5d 20 31 31 5d 29 0a 28 |. done."|] 11]).(|
|00002970| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 ac 82 |byte-cod|e "..!..|
|00002980| c2 11 c1 0b 42 13 c0 c4 | 21 ac 82 c5 14 c4 0b 42 |....B...|!......B|
|00002990| 13 c0 87 22 20 5b 62 6f | 75 6e 64 70 20 63 6f 6e |..." [bo|undp con|
|000029a0| 78 2d 63 2d 70 72 6f 6c | 6f 67 20 22 23 69 66 20 |x-c-prol|og "#if |
|000029b0| 5f 5f 53 54 44 43 5f 5f | 5c 6e 23 69 6e 63 6c 75 |__STDC__|\n#inclu|
|000029c0| 64 65 20 3c 73 74 64 64 | 65 66 2e 68 3e 5c 6e 23 |de <stdd|ef.h>\n#|
|000029d0| 69 6e 63 6c 75 64 65 20 | 3c 75 6e 69 73 74 64 2e |include |<unistd.|
|000029e0| 68 3e 5c 6e 65 78 74 65 | 72 6e 20 6c 6f 6e 67 20 |h>\nexte|rn long |
|000029f0| 72 61 6e 64 6f 6d 20 28 | 76 6f 69 64 29 3b 5c 6e |random (|void);\n|
|00002a00| 65 78 74 65 72 6e 20 76 | 6f 69 64 20 73 72 61 6e |extern v|oid sran|
|00002a10| 64 6f 6d 20 28 69 6e 74 | 29 3b 5c 6e 65 78 74 65 |dom (int|);\nexte|
|00002a20| 72 6e 20 76 6f 69 64 20 | 61 62 6f 72 74 20 28 76 |rn void |abort (v|
|00002a30| 6f 69 64 29 3b 5c 6e 23 | 65 6e 64 69 66 5c 6e 23 |oid);\n#|endif\n#|
|00002a40| 69 6e 63 6c 75 64 65 20 | 3c 73 74 64 69 6f 2e 68 |include |<stdio.h|
|00002a50| 3e 5c 6e 23 69 6e 63 6c | 75 64 65 20 3c 74 69 6d |>\n#incl|ude <tim|
|00002a60| 65 2e 68 3e 5c 6e 5c 6e | 73 74 72 75 63 74 20 63 |e.h>\n\n|struct c|
|00002a70| 6f 6e 78 5f 77 6f 72 64 | 20 7b 5c 6e 20 20 75 6e |onx_word| {\n un|
|00002a80| 73 69 67 6e 65 64 20 73 | 68 6f 72 74 20 63 6f 75 |signed s|hort cou|
|00002a90| 6e 74 3b 5c 6e 20 20 75 | 6e 73 69 67 6e 65 64 20 |nt;\n u|nsigned |
|00002aa0| 73 68 6f 72 74 20 63 61 | 70 3b 5c 6e 20 20 75 6e |short ca|p;\n un|
|00002ab0| 73 69 67 6e 65 64 20 73 | 68 6f 72 74 20 63 6f 6d |signed s|hort com|
|00002ac0| 6d 61 3b 5c 6e 20 20 75 | 6e 73 69 67 6e 65 64 20 |ma;\n u|nsigned |
|00002ad0| 73 68 6f 72 74 20 70 65 | 72 69 6f 64 3b 5c 6e 20 |short pe|riod;\n |
|00002ae0| 20 75 6e 73 69 67 6e 65 | 64 20 73 68 6f 72 74 20 | unsigne|d short |
|00002af0| 71 75 65 6d 3b 5c 6e 20 | 20 75 6e 73 69 67 6e 65 |quem;\n | unsigne|
|00002b00| 64 20 73 68 6f 72 74 20 | 62 61 6e 67 3b 5c 6e 20 |d short |bang;\n |
|00002b10| 20 75 6e 73 69 67 6e 65 | 64 20 73 68 6f 72 74 20 | unsigne|d short |
|00002b20| 70 72 65 64 3b 5c 6e 20 | 20 75 6e 73 69 67 6e 65 |pred;\n | unsigne|
|00002b30| 64 20 73 68 6f 72 74 20 | 73 75 63 63 3b 5c 6e 20 |d short |succ;\n |
|00002b40| 20 75 6e 73 69 67 6e 65 | 64 20 73 68 6f 72 74 20 | unsigne|d short |
|00002b50| 6e 70 72 65 64 3b 5c 6e | 20 20 75 6e 73 69 67 6e |npred;\n| unsign|
|00002b60| 65 64 20 73 68 6f 72 74 | 20 6e 73 75 63 63 3b 5c |ed short| nsucc;\|
|00002b70| 6e 20 20 75 6e 73 69 67 | 6e 65 64 20 73 68 6f 72 |n unsig|ned shor|
|00002b80| 74 20 74 65 78 74 3b 5c | 6e 7d 3b 5c 6e 22 20 63 |t text;\|n};\n" c|
|00002b90| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00002ba0| 20 63 6f 6e 78 2d 63 2d | 63 6f 64 65 20 22 23 64 | conx-c-|code "#d|
|00002bb0| 65 66 69 6e 65 20 63 6f | 75 6e 74 6f 66 28 78 29 |efine co|untof(x)|
|00002bc0| 20 28 73 69 7a 65 6f 66 | 28 28 78 29 29 20 2f 20 | (sizeof|((x)) / |
|00002bd0| 73 69 7a 65 6f 66 28 2a | 28 78 29 29 29 5c 6e 23 |sizeof(*|(x)))\n#|
|00002be0| 64 65 66 69 6e 65 20 63 | 6f 6e 78 5f 72 61 6e 64 |define c|onx_rand|
|00002bf0| 28 6e 29 20 28 72 61 6e | 64 6f 6d 28 29 25 28 6e |(n) (ran|dom()%(n|
|00002c00| 29 29 5c 6e 5c 6e 73 74 | 61 74 69 63 20 73 74 72 |))\n\nst|atic str|
|00002c10| 75 63 74 20 63 6f 6e 78 | 5f 77 6f 72 64 20 2a 5c |uct conx|_word *\|
|00002c20| 6e 63 6f 6e 78 5f 72 61 | 6e 64 6f 6d 5f 72 65 6c |nconx_ra|ndom_rel|
|00002c30| 61 74 65 64 20 28 63 6f | 75 6e 74 2c 20 77 68 69 |ated (co|unt, whi|
|00002c40| 63 68 5f 6c 69 73 74 29 | 5c 6e 20 20 20 20 20 75 |ch_list)|\n u|
|00002c50| 6e 73 69 67 6e 65 64 20 | 73 68 6f 72 74 20 63 6f |nsigned |short co|
|00002c60| 75 6e 74 2c 20 77 68 69 | 63 68 5f 6c 69 73 74 3b |unt, whi|ch_list;|
|00002c70| 5c 6e 7b 5c 6e 20 20 75 | 6e 73 69 67 6e 65 64 20 |\n{\n u|nsigned |
|00002c80| 73 68 6f 72 74 20 2a 6c | 69 73 74 20 3d 20 44 20 |short *l|ist = D |
|00002c90| 2b 20 77 68 69 63 68 5f | 6c 69 73 74 3b 5c 6e 20 |+ which_|list;\n |
|00002ca0| 20 69 6e 74 20 69 20 3d | 20 30 3b 5c 6e 20 20 75 | int i =| 0;\n u|
|00002cb0| 6e 73 69 67 6e 65 64 20 | 73 68 6f 72 74 20 66 6f |nsigned |short fo|
|00002cc0| 6c 6c 20 3d 20 28 63 6f | 75 6e 74 20 3d 3d 20 30 |ll = (co|unt == 0|
|00002cd0| 20 3f 20 30 20 3a 20 63 | 6f 6e 78 5f 72 61 6e 64 | ? 0 : c|onx_rand|
|00002ce0| 20 28 63 6f 75 6e 74 29 | 29 3b 5c 6e 20 20 77 68 | (count)|);\n wh|
|00002cf0| 69 6c 65 20 28 31 29 5c | 6e 20 20 20 20 7b 5c 6e |ile (1)\|n {\n|
|00002d00| 20 20 20 20 20 20 69 66 | 20 28 66 6f 6c 6c 20 3c | if| (foll <|
|00002d10| 3d 20 6c 69 73 74 20 5b | 69 20 2a 20 32 5d 29 5c |= list [|i * 2])\|
|00002d20| 6e 09 7b 5c 6e 09 20 20 | 69 66 20 28 28 6c 69 73 |n.{\n. |if ((lis|
|00002d30| 74 20 5b 69 20 2a 20 32 | 20 2b 20 31 5d 29 20 3e |t [i * 2| + 1]) >|
|00002d40| 20 63 6f 75 6e 74 6f 66 | 20 28 77 6f 72 64 73 29 | countof| (words)|
|00002d50| 29 5c 6e 09 20 20 20 20 | 61 62 6f 72 74 20 28 29 |)\n. |abort ()|
|00002d60| 3b 5c 6e 09 20 20 72 65 | 74 75 72 6e 20 26 77 6f |;\n. re|turn &wo|
|00002d70| 72 64 73 20 5b 6c 69 73 | 74 20 5b 69 20 2a 20 32 |rds [lis|t [i * 2|
|00002d80| 20 2b 20 31 5d 5d 3b 5c | 6e 09 7d 5c 6e 20 20 20 | + 1]];\|n.}\n |
|00002d90| 20 20 20 66 6f 6c 6c 20 | 2d 3d 20 6c 69 73 74 20 | foll |-= list |
|00002da0| 5b 69 20 2a 20 32 5d 3b | 5c 6e 20 20 20 20 20 20 |[i * 2];|\n |
|00002db0| 69 2b 2b 3b 5c 6e 20 20 | 20 20 7d 5c 6e 7d 5c 6e |i++;\n | }\n}\n|
|00002dc0| 5c 6e 73 74 61 74 69 63 | 20 73 74 72 75 63 74 20 |\nstatic| struct |
|00002dd0| 63 6f 6e 78 5f 77 6f 72 | 64 20 2a 5c 6e 63 6f 6e |conx_wor|d *\ncon|
|00002de0| 78 5f 72 61 6e 64 6f 6d | 5f 73 75 63 63 20 28 77 |x_random|_succ (w|
|00002df0| 6f 72 64 29 5c 6e 20 20 | 20 20 20 73 74 72 75 63 |ord)\n | struc|
|00002e00| 74 20 63 6f 6e 78 5f 77 | 6f 72 64 20 2a 77 6f 72 |t conx_w|ord *wor|
|00002e10| 64 3b 5c 6e 7b 5c 6e 20 | 20 69 66 20 28 77 6f 72 |d;\n{\n | if (wor|
|00002e20| 64 2d 3e 6e 73 75 63 63 | 20 3d 3d 20 30 29 5c 6e |d->nsucc| == 0)\n|
|00002e30| 20 20 20 20 72 65 74 75 | 72 6e 20 77 6f 72 64 3b | retu|rn word;|
|00002e40| 5c 6e 20 20 65 6c 73 65 | 5c 6e 20 20 20 20 7b 5c |\n else|\n {\|
|00002e50| 6e 20 20 20 20 20 20 73 | 74 72 75 63 74 20 63 6f |n s|truct co|
|00002e60| 6e 78 5f 77 6f 72 64 20 | 2a 6e 65 78 74 20 3d 20 |nx_word |*next = |
|00002e70| 63 6f 6e 78 5f 72 61 6e | 64 6f 6d 5f 72 65 6c 61 |conx_ran|dom_rela|
|00002e80| 74 65 64 20 28 77 6f 72 | 64 2d 3e 6e 73 75 63 63 |ted (wor|d->nsucc|
|00002e90| 2c 20 77 6f 72 64 2d 3e | 73 75 63 63 29 3b 5c 6e |, word->|succ);\n|
|00002ea0| 20 20 20 20 20 20 69 66 | 20 28 63 6f 6e 78 5f 72 | if| (conx_r|
|00002eb0| 61 6e 64 20 28 63 6f 6e | 78 5f 62 6f 75 6e 63 65 |and (con|x_bounce|
|00002ec0| 29 20 21 3d 20 30 29 5c | 6e 09 72 65 74 75 72 6e |) != 0)\|n.return|
|00002ed0| 20 6e 65 78 74 3b 5c 6e | 20 20 20 20 20 20 72 65 | next;\n| re|
|00002ee0| 74 75 72 6e 20 63 6f 6e | 78 5f 72 61 6e 64 6f 6d |turn con|x_random|
|00002ef0| 5f 73 75 63 63 20 28 63 | 6f 6e 78 5f 72 61 6e 64 |_succ (c|onx_rand|
|00002f00| 6f 6d 5f 72 65 6c 61 74 | 65 64 20 28 6e 65 78 74 |om_relat|ed (next|
|00002f10| 2d 3e 6e 70 72 65 64 2c | 20 6e 65 78 74 2d 3e 70 |->npred,| next->p|
|00002f20| 72 65 64 29 29 3b 5c 6e | 20 20 20 20 7d 5c 6e 7d |red));\n| }\n}|
|00002f30| 5c 6e 5c 6e 73 74 61 74 | 69 63 20 76 6f 69 64 5c |\n\nstat|ic void\|
|00002f40| 6e 63 6f 6e 78 5f 73 65 | 6e 74 65 6e 63 65 20 28 |nconx_se|ntence (|
|00002f50| 29 5c 6e 7b 5c 6e 20 20 | 73 74 61 74 69 63 20 69 |)\n{\n |static i|
|00002f60| 6e 74 20 78 20 3d 20 30 | 3b 5c 6e 20 20 73 74 72 |nt x = 0|;\n str|
|00002f70| 75 63 74 20 63 6f 6e 78 | 5f 77 6f 72 64 20 2a 77 |uct conx|_word *w|
|00002f80| 6f 72 64 20 3d 20 30 3b | 5c 6e 20 20 69 6e 74 20 |ord = 0;|\n int |
|00002f90| 66 69 72 73 74 5f 70 20 | 3d 20 31 3b 5c 6e 20 20 |first_p |= 1;\n |
|00002fa0| 69 6e 74 20 64 6f 6e 65 | 20 3d 20 30 3b 5c 6e 20 |int done| = 0;\n |
|00002fb0| 20 69 6e 74 20 63 6f 75 | 6e 74 20 3d 20 30 3b 5c | int cou|nt = 0;\|
|00002fc0| 6e 20 20 77 68 69 6c 65 | 20 28 21 64 6f 6e 65 29 |n while| (!done)|
|00002fd0| 5c 6e 20 20 20 20 7b 5c | 6e 20 20 20 20 20 20 69 |\n {\|n i|
|00002fe0| 6e 74 20 70 75 6e 63 3b | 5c 6e 20 20 20 20 20 20 |nt punc;|\n |
|00002ff0| 63 68 61 72 20 2a 74 65 | 78 74 3b 5c 6e 20 20 20 |char *te|xt;\n |
|00003000| 20 20 20 69 6e 74 20 4c | 3b 5c 6e 20 20 20 20 20 | int L|;\n |
|00003010| 20 69 66 20 28 77 6f 72 | 64 29 5c 6e 09 77 6f 72 | if (wor|d)\n.wor|
|00003020| 64 20 3d 20 63 6f 6e 78 | 5f 72 61 6e 64 6f 6d 5f |d = conx|_random_|
|00003030| 73 75 63 63 20 28 77 6f | 72 64 29 3b 5c 6e 20 20 |succ (wo|rd);\n |
|00003040| 20 20 20 20 65 6c 73 65 | 5c 6e 09 77 6f 72 64 20 | else|\n.word |
|00003050| 3d 20 26 77 6f 72 64 73 | 20 5b 63 6f 6e 78 5f 72 |= &words| [conx_r|
|00003060| 61 6e 64 20 28 63 6f 75 | 6e 74 6f 66 20 28 77 6f |and (cou|ntof (wo|
|00003070| 72 64 73 29 29 5d 3b 5c | 6e 20 20 20 20 20 20 63 |rds))];\|n c|
|00003080| 6f 75 6e 74 2b 2b 3b 5c | 6e 20 20 20 20 20 20 70 |ount++;\|n p|
|00003090| 75 6e 63 20 3d 20 63 6f | 6e 78 5f 72 61 6e 64 20 |unc = co|nx_rand |
|000030a0| 28 77 6f 72 64 2d 3e 63 | 6f 75 6e 74 29 3b 5c 6e |(word->c|ount);\n|
|000030b0| 20 20 20 20 20 20 74 65 | 78 74 20 3d 20 54 20 2b | te|xt = T +|
|000030c0| 20 77 6f 72 64 2d 3e 74 | 65 78 74 3b 5c 6e 20 20 | word->t|ext;\n |
|000030d0| 20 20 20 20 4c 20 3d 20 | 73 74 72 6c 65 6e 20 28 | L = |strlen (|
|000030e0| 74 65 78 74 29 3b 5c 6e | 20 20 20 20 20 20 69 66 |text);\n| if|
|000030f0| 20 28 78 20 2b 20 4c 20 | 3e 20 37 30 29 5c 6e 09 | (x + L |> 70)\n.|
|00003100| 7b 5c 6e 09 20 20 70 75 | 74 63 68 61 72 20 28 27 |{\n. pu|tchar ('|
|00003110| 5c 5c 6e 27 29 3b 5c 6e | 09 20 20 78 20 3d 20 30 |\\n');\n|. x = 0|
|00003120| 3b 5c 6e 09 7d 5c 6e 20 | 20 20 20 20 20 78 20 2b |;\n.}\n | x +|
|00003130| 3d 20 4c 2b 31 3b 5c 6e | 5c 6e 20 20 20 20 20 20 |= L+1;\n|\n |
|00003140| 69 66 20 28 66 69 72 73 | 74 5f 70 20 7c 7c 20 28 |if (firs|t_p || (|
|00003150| 77 6f 72 64 2d 3e 63 6f | 75 6e 74 20 3d 3d 20 77 |word->co|unt == w|
|00003160| 6f 72 64 2d 3e 63 61 70 | 29 29 5c 6e 09 7b 5c 6e |ord->cap|))\n.{\n|
|00003170| 09 20 20 70 75 74 63 68 | 61 72 20 28 28 2a 74 65 |. putch|ar ((*te|
|00003180| 78 74 20 3e 3d 20 27 61 | 27 20 26 26 20 2a 74 65 |xt >= 'a|' && *te|
|00003190| 78 74 20 3c 3d 20 27 7a | 27 29 20 3f 20 2a 74 65 |xt <= 'z|') ? *te|
|000031a0| 78 74 20 2b 20 28 27 41 | 27 2d 27 61 27 29 20 3a |xt + ('A|'-'a') :|
|000031b0| 20 2a 74 65 78 74 29 3b | 5c 6e 09 20 20 66 70 75 | *text);|\n. fpu|
|000031c0| 74 73 20 28 74 65 78 74 | 2b 31 2c 20 73 74 64 6f |ts (text|+1, stdo|
|000031d0| 75 74 29 3b 5c 6e 09 20 | 20 66 69 72 73 74 5f 70 |ut);\n. | first_p|
|000031e0| 20 3d 20 30 3b 5c 6e 09 | 7d 5c 6e 20 20 20 20 20 | = 0;\n.|}\n |
|000031f0| 20 65 6c 73 65 5c 6e 09 | 66 70 75 74 73 20 28 74 | else\n.|fputs (t|
|00003200| 65 78 74 2c 20 73 74 64 | 6f 75 74 29 3b 5c 6e 5c |ext, std|out);\n\|
|00003210| 6e 20 20 20 20 20 20 69 | 66 20 28 70 75 6e 63 20 |n i|f (punc |
|00003220| 3c 20 77 6f 72 64 2d 3e | 63 6f 6d 6d 61 29 5c 6e |< word->|comma)\n|
|00003230| 09 7b 5c 6e 09 20 20 66 | 70 75 74 73 20 28 5c 22 |.{\n. f|puts (\"|
|00003240| 2c 20 5c 22 2c 20 73 74 | 64 6f 75 74 29 3b 5c 6e |, \", st|dout);\n|
|00003250| 09 20 20 78 2b 2b 3b 5c | 6e 09 7d 5c 6e 20 20 20 |. x++;\|n.}\n |
|00003260| 20 20 20 65 6c 73 65 20 | 69 66 20 28 28 70 75 6e | else |if ((pun|
|00003270| 63 20 2d 3d 20 77 6f 72 | 64 2d 3e 63 6f 6d 6d 61 |c -= wor|d->comma|
|00003280| 29 20 3c 20 77 6f 72 64 | 2d 3e 70 65 72 69 6f 64 |) < word|->period|
|00003290| 29 5c 6e 09 7b 5c 6e 09 | 20 20 78 2b 2b 3b 5c 6e |)\n.{\n.| x++;\n|
|000032a0| 09 20 20 69 66 20 28 63 | 6f 75 6e 74 20 3e 20 31 |. if (c|ount > 1|
|000032b0| 32 30 20 7c 7c 20 63 6f | 6e 78 5f 72 61 6e 64 20 |20 || co|nx_rand |
|000032c0| 28 35 29 20 21 3d 20 30 | 29 5c 6e 09 20 20 20 20 |(5) != 0|)\n. |
|000032d0| 7b 5c 6e 09 20 20 20 20 | 20 20 64 6f 6e 65 20 3d |{\n. | done =|
|000032e0| 20 31 3b 5c 6e 09 20 20 | 20 20 20 20 66 70 75 74 | 1;\n. | fput|
|000032f0| 73 20 28 5c 22 2e 20 20 | 5c 22 2c 20 73 74 64 6f |s (\". |\", stdo|
|00003300| 75 74 29 3b 5c 6e 09 20 | 20 20 20 20 20 78 2b 2b |ut);\n. | x++|
|00003310| 3b 5c 6e 09 20 20 20 20 | 7d 5c 6e 09 20 20 65 6c |;\n. |}\n. el|
|00003320| 73 65 5c 6e 09 20 20 20 | 20 7b 5c 6e 09 20 20 20 |se\n. | {\n. |
|00003330| 20 20 20 77 6f 72 64 20 | 3d 20 30 3b 5c 6e 09 20 | word |= 0;\n. |
|00003340| 20 20 20 20 20 69 66 20 | 28 63 6f 6e 78 5f 72 61 | if |(conx_ra|
|00003350| 6e 64 20 28 34 29 20 3d | 3d 20 30 29 5c 6e 09 09 |nd (4) =|= 0)\n..|
|00003360| 66 70 75 74 73 20 28 5c | 22 3a 20 5c 22 2c 20 73 |fputs (\|": \", s|
|00003370| 74 64 6f 75 74 29 3b 5c | 6e 09 20 20 20 20 20 20 |tdout);\|n. |
|00003380| 65 6c 73 65 5c 6e 09 09 | 66 70 75 74 73 20 28 5c |else\n..|fputs (\|
|00003390| 22 3b 20 5c 22 2c 20 73 | 74 64 6f 75 74 29 3b 5c |"; \", s|tdout);\|
|000033a0| 6e 09 20 20 20 20 7d 5c | 6e 09 7d 5c 6e 20 20 20 |n. }\|n.}\n |
|000033b0| 20 20 20 65 6c 73 65 20 | 69 66 20 28 28 70 75 6e | else |if ((pun|
|000033c0| 63 20 2d 3d 20 77 6f 72 | 64 2d 3e 70 65 72 69 6f |c -= wor|d->perio|
|000033d0| 64 29 20 3c 20 77 6f 72 | 64 2d 3e 71 75 65 6d 29 |d) < wor|d->quem)|
|000033e0| 5c 6e 09 7b 5c 6e 09 20 | 20 64 6f 6e 65 20 3d 20 |\n.{\n. | done = |
|000033f0| 31 3b 5c 6e 09 20 20 66 | 70 75 74 73 20 28 5c 22 |1;\n. f|puts (\"|
|00003400| 3f 20 20 5c 22 2c 20 73 | 74 64 6f 75 74 29 3b 5c |? \", s|tdout);\|
|00003410| 6e 09 20 20 78 20 2b 3d | 20 32 3b 5c 6e 09 7d 5c |n. x +=| 2;\n.}\|
|00003420| 6e 20 20 20 20 20 20 65 | 6c 73 65 20 69 66 20 28 |n e|lse if (|
|00003430| 28 70 75 6e 63 20 2d 3d | 20 77 6f 72 64 2d 3e 71 |(punc -=| word->q|
|00003440| 75 65 6d 29 20 3c 20 77 | 6f 72 64 2d 3e 62 61 6e |uem) < w|ord->ban|
|00003450| 67 29 5c 6e 09 7b 5c 6e | 09 20 20 64 6f 6e 65 20 |g)\n.{\n|. done |
|00003460| 3d 20 31 3b 5c 6e 09 20 | 20 66 70 75 74 73 20 28 |= 1;\n. | fputs (|
|00003470| 5c 22 21 20 20 5c 22 2c | 20 73 74 64 6f 75 74 29 |\"! \",| stdout)|
|00003480| 3b 5c 6e 09 20 20 78 20 | 2b 3d 20 32 3b 5c 6e 09 |;\n. x |+= 2;\n.|
|00003490| 7d 5c 6e 20 20 20 20 20 | 20 65 6c 73 65 5c 6e 09 |}\n | else\n.|
|000034a0| 7b 5c 6e 09 20 20 69 66 | 20 28 77 6f 72 64 2d 3e |{\n. if| (word->|
|000034b0| 6e 73 75 63 63 20 3d 3d | 20 30 29 5c 6e 09 20 20 |nsucc ==| 0)\n. |
|000034c0| 20 20 7b 5c 6e 09 20 20 | 20 20 20 20 66 70 75 74 | {\n. | fput|
|000034d0| 73 20 28 5c 22 2e 20 20 | 5c 22 2c 20 73 74 64 6f |s (\". |\", stdo|
|000034e0| 75 74 29 3b 5c 6e 09 20 | 20 20 20 20 20 78 20 2b |ut);\n. | x +|
|000034f0| 3d 20 32 3b 5c 6e 09 20 | 20 20 20 20 20 64 6f 6e |= 2;\n. | don|
|00003500| 65 20 3d 20 31 3b 5c 6e | 09 20 20 20 20 7d 5c 6e |e = 1;\n|. }\n|
|00003510| 09 20 20 65 6c 73 65 5c | 6e 09 20 20 20 20 70 75 |. else\|n. pu|
|00003520| 74 63 68 61 72 20 28 27 | 20 27 29 3b 5c 6e 09 7d |tchar ('| ');\n.}|
|00003530| 5c 6e 20 20 20 20 7d 5c | 6e 20 20 69 66 20 28 63 |\n }\|n if (c|
|00003540| 6f 6e 78 5f 72 61 6e 64 | 20 28 33 29 20 3d 3d 20 |onx_rand| (3) == |
|00003550| 30 29 5c 6e 20 20 20 20 | 7b 5c 6e 20 20 20 20 20 |0)\n |{\n |
|00003560| 20 66 70 75 74 73 20 28 | 5c 22 5c 5c 6e 5c 5c 6e | fputs (|\"\\n\\n|
|00003570| 5c 22 2c 20 73 74 64 6f | 75 74 29 3b 5c 6e 20 20 |\", stdo|ut);\n |
|00003580| 20 20 20 20 78 20 3d 20 | 30 3b 5c 6e 20 20 20 20 | x = |0;\n |
|00003590| 7d 5c 6e 7d 5c 6e 5c 6e | 6d 61 69 6e 20 28 61 72 |}\n}\n\n|main (ar|
|000035a0| 67 63 2c 20 61 72 67 76 | 29 5c 6e 20 20 20 20 20 |gc, argv|)\n |
|000035b0| 69 6e 74 20 61 72 67 63 | 3b 5c 6e 20 20 20 20 20 |int argc|;\n |
|000035c0| 63 68 61 72 20 2a 2a 61 | 72 67 76 3b 5c 6e 7b 5c |char **a|rgv;\n{\|
|000035d0| 6e 20 20 75 6e 73 69 67 | 6e 65 64 20 69 6e 74 20 |n unsig|ned int |
|000035e0| 68 6f 77 6d 61 6e 79 2c | 20 64 65 6c 61 79 3b 5c |howmany,| delay;\|
|000035f0| 6e 20 20 63 68 61 72 20 | 64 75 6d 6d 79 3b 5c 6e |n char |dummy;\n|
|00003600| 20 20 69 66 20 28 61 72 | 67 63 20 3d 3d 20 31 29 | if (ar|gc == 1)|
|00003610| 5c 6e 20 20 20 20 7b 5c | 6e 20 20 20 20 20 20 68 |\n {\|n h|
|00003620| 6f 77 6d 61 6e 79 20 3d | 20 31 3b 5c 6e 20 20 20 |owmany =| 1;\n |
|00003630| 20 20 20 64 65 6c 61 79 | 20 3d 20 30 3b 5c 6e 20 | delay| = 0;\n |
|00003640| 20 20 20 7d 5c 6e 20 20 | 65 6c 73 65 20 69 66 20 | }\n |else if |
|00003650| 28 61 72 67 63 20 3d 3d | 20 32 20 26 26 5c 6e 20 |(argc ==| 2 &&\n |
|00003660| 20 20 20 20 20 31 20 3d | 3d 20 73 73 63 61 6e 66 | 1 =|= sscanf|
|00003670| 20 28 61 72 67 76 5b 31 | 5d 2c 20 5c 22 25 75 64 | (argv[1|], \"%ud|
|00003680| 25 63 5c 22 2c 20 26 68 | 6f 77 6d 61 6e 79 2c 20 |%c\", &h|owmany, |
|00003690| 26 64 75 6d 6d 79 29 29 | 5c 6e 20 20 20 20 64 65 |&dummy))|\n de|
|000036a0| 6c 61 79 20 3d 20 30 3b | 5c 6e 20 20 65 6c 73 65 |lay = 0;|\n else|
|000036b0| 20 69 66 20 28 61 72 67 | 63 20 3d 3d 20 33 20 26 | if (arg|c == 3 &|
|000036c0| 26 5c 6e 09 20 20 20 31 | 20 3d 3d 20 73 73 63 61 |&\n. 1| == ssca|
|000036d0| 6e 66 20 28 61 72 67 76 | 5b 31 5d 2c 20 5c 22 25 |nf (argv|[1], \"%|
|000036e0| 75 64 25 63 5c 22 2c 20 | 26 68 6f 77 6d 61 6e 79 |ud%c\", |&howmany|
|000036f0| 2c 20 26 64 75 6d 6d 79 | 29 20 26 26 5c 6e 09 20 |, &dummy|) &&\n. |
|00003700| 20 20 31 20 3d 3d 20 73 | 73 63 61 6e 66 20 28 61 | 1 == s|scanf (a|
|00003710| 72 67 76 5b 32 5d 2c 20 | 5c 22 25 75 64 25 63 5c |rgv[2], |\"%ud%c\|
|00003720| 22 2c 20 26 64 65 6c 61 | 79 2c 20 26 64 75 6d 6d |", &dela|y, &dumm|
|00003730| 79 29 29 5c 6e 20 20 20 | 20 3b 5c 6e 20 20 65 6c |y))\n | ;\n el|
|00003740| 73 65 5c 6e 20 20 20 20 | 7b 5c 6e 20 20 20 20 20 |se\n |{\n |
|00003750| 20 66 70 72 69 6e 74 66 | 20 28 73 74 64 65 72 72 | fprintf| (stderr|
|00003760| 2c 20 5c 22 75 73 61 67 | 65 3a 20 25 73 20 5b 63 |, \"usag|e: %s [c|
|00003770| 6f 75 6e 74 20 5b 64 65 | 6c 61 79 5d 5d 5c 5c 6e |ount [de|lay]]\\n|
|00003780| 5c 22 2c 20 61 72 67 76 | 20 5b 30 5d 29 3b 5c 6e |\", argv| [0]);\n|
|00003790| 20 20 20 20 20 20 65 78 | 69 74 20 28 31 29 3b 5c | ex|it (1);\|
|000037a0| 6e 20 20 20 20 7d 5c 6e | 5c 6e 20 20 73 72 61 6e |n }\n|\n sran|
|000037b0| 64 6f 6d 20 28 74 69 6d | 65 20 28 30 29 29 3b 5c |dom (tim|e (0));\|
|000037c0| 6e 20 20 69 66 20 28 68 | 6f 77 6d 61 6e 79 20 3d |n if (h|owmany =|
|000037d0| 3d 20 30 29 5c 6e 20 20 | 20 20 68 6f 77 6d 61 6e |= 0)\n | howman|
|000037e0| 79 20 3d 20 7e 30 3b 5c | 6e 20 20 77 68 69 6c 65 |y = ~0;\|n while|
|000037f0| 20 28 68 6f 77 6d 61 6e | 79 20 3e 20 30 29 5c 6e | (howman|y > 0)\n|
|00003800| 20 20 20 20 7b 5c 6e 20 | 20 20 20 20 20 63 6f 6e | {\n | con|
|00003810| 78 5f 73 65 6e 74 65 6e | 63 65 20 28 29 3b 5c 6e |x_senten|ce ();\n|
|00003820| 20 20 20 20 20 20 66 66 | 6c 75 73 68 20 28 73 74 | ff|lush (st|
|00003830| 64 6f 75 74 29 3b 5c 6e | 20 20 20 20 20 20 68 6f |dout);\n| ho|
|00003840| 77 6d 61 6e 79 2d 2d 3b | 5c 6e 20 20 20 20 20 20 |wmany--;|\n |
|00003850| 69 66 20 28 64 65 6c 61 | 79 29 20 73 6c 65 65 70 |if (dela|y) sleep|
|00003860| 20 28 64 65 6c 61 79 29 | 3b 5c 6e 20 20 20 20 7d | (delay)|;\n }|
|00003870| 5c 6e 20 20 70 75 74 63 | 68 61 72 20 28 27 5c 5c |\n putc|har ('\\|
|00003880| 6e 27 29 3b 5c 6e 20 20 | 65 78 69 74 20 28 30 29 |n');\n |exit (0)|
|00003890| 3b 5c 6e 7d 5c 6e 22 5d | 20 32 29 0a 23 40 33 34 |;\n}\n"]| 2).#@34|
|000038a0| 36 20 57 72 69 74 65 20 | 74 68 65 20 63 75 72 72 |6 Write |the curr|
|000038b0| 65 6e 74 20 43 4f 4e 58 | 20 64 61 74 61 62 61 73 |ent CONX| databas|
|000038c0| 65 20 74 6f 20 61 20 66 | 69 6c 65 20 61 73 20 43 |e to a f|ile as C|
|000038d0| 20 73 6f 75 72 63 65 20 | 63 6f 64 65 2e 0a 54 68 | source |code..Th|
|000038e0| 65 20 67 65 6e 65 72 61 | 74 65 64 20 70 72 6f 67 |e genera|ted prog|
|000038f0| 72 61 6d 20 77 69 6c 6c | 20 68 61 76 65 20 74 68 |ram will| have th|
|00003900| 65 20 73 61 6d 65 20 65 | 66 66 65 63 74 20 61 73 |e same e|ffect as|
|00003910| 20 4d 2d 78 20 63 6f 6e | 78 2c 0a 65 78 63 65 70 | M-x con|x,.excep|
|00003920| 74 20 74 68 61 74 20 69 | 74 20 72 75 6e 73 20 77 |t that i|t runs w|
|00003930| 69 74 68 6f 75 74 20 65 | 6d 61 63 73 2e 0a 0a 57 |ithout e|macs...W|
|00003940| 69 74 68 20 61 20 70 72 | 65 66 69 78 20 61 72 67 |ith a pr|efix arg|
|00003950| 75 6d 65 6e 74 2c 20 77 | 72 69 74 65 20 4b 26 52 |ument, w|rite K&R|
|00003960| 20 43 20 69 6e 73 74 65 | 61 64 20 6f 66 20 41 4e | C inste|ad of AN|
|00003970| 53 49 20 43 2e 20 20 41 | 4e 53 49 20 69 73 0a 74 |SI C. A|NSI is.t|
|00003980| 68 65 20 64 65 66 61 75 | 6c 74 20 62 65 63 61 75 |he defau|lt becau|
|00003990| 73 65 2c 20 77 69 74 68 | 6f 75 74 20 61 20 63 65 |se, with|out a ce|
|000039a0| 72 74 61 69 6e 20 41 4e | 53 49 20 66 65 61 74 75 |rtain AN|SI featu|
|000039b0| 72 65 2c 20 6c 61 72 67 | 65 20 64 61 74 61 62 61 |re, larg|e databa|
|000039c0| 73 65 73 0a 77 69 6c 6c | 20 6f 76 65 72 66 6c 6f |ses.will| overflo|
|000039d0| 77 20 73 74 61 74 69 63 | 20 6c 69 6d 69 74 73 20 |w static| limits |
|000039e0| 69 6e 20 6d 6f 73 74 20 | 4b 26 52 20 70 72 65 70 |in most |K&R prep|
|000039f0| 72 6f 63 65 73 73 6f 72 | 73 2e 1f 0a 28 64 65 66 |rocessor|s...(def|
|00003a00| 61 6c 69 61 73 20 27 63 | 6f 6e 78 2d 65 6d 69 74 |alias 'c|onx-emit|
|00003a10| 2d 63 20 23 5b 28 66 69 | 6c 65 20 26 6f 70 74 69 |-c #[(fi|le &opti|
|00003a20| 6f 6e 61 6c 20 6e 6f 6e | 2d 61 6e 73 69 2d 70 29 |onal non|-ansi-p)|
|00003a30| 20 22 c0 09 21 88 c2 20 | 88 c3 1c 0d 63 88 0e 06 | "..!.. |....c...|
|00003a40| ac 86 c7 c8 c9 b1 03 88 | ca 0e 06 3f 21 88 0e 0b |........|...?!...|
|00003a50| 63 88 29 65 62 87 22 20 | 5b 66 69 6e 64 2d 66 69 |c.)eb." |[find-fi|
|00003a60| 6c 65 20 66 69 6c 65 20 | 65 72 61 73 65 2d 62 75 |le file |erase-bu|
|00003a70| 66 66 65 72 20 74 20 62 | 75 66 66 65 72 2d 75 6e |ffer t b|uffer-un|
|00003a80| 64 6f 2d 6c 69 73 74 20 | 63 6f 6e 78 2d 63 2d 70 |do-list |conx-c-p|
|00003a90| 72 6f 6c 6f 67 20 6e 6f | 6e 2d 61 6e 73 69 2d 70 |rolog no|n-ansi-p|
|00003aa0| 20 22 5c 6e 23 69 66 20 | 21 5f 5f 53 54 44 43 5f | "\n#if |!__STDC_|
|00003ab0| 5f 5c 6e 22 20 22 65 72 | 72 6f 72 21 20 74 68 69 |_\n" "er|ror! thi|
|00003ac0| 73 20 66 69 6c 65 20 72 | 65 71 75 69 72 65 73 20 |s file r|equires |
|00003ad0| 61 6e 20 41 4e 53 49 20 | 43 20 63 6f 6d 70 69 6c |an ANSI |C compil|
|00003ae0| 65 72 5c 6e 22 20 22 23 | 65 6e 64 69 66 5c 6e 5c |er\n" "#|endif\n\|
|00003af0| 6e 22 20 63 6f 6e 78 2d | 65 6d 69 74 2d 63 2d 64 |n" conx-|emit-c-d|
|00003b00| 61 74 61 20 63 6f 6e 78 | 2d 63 2d 63 6f 64 65 5d |ata conx|-c-code]|
|00003b10| 20 33 20 28 23 24 20 2e | 20 31 34 34 39 38 29 20 | 3 (#$ .| 14498) |
|00003b20| 22 46 57 72 69 74 65 20 | 43 20 66 69 6c 65 3a 20 |"FWrite |C file: |
|00003b30| 5c 6e 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |\nP"]).(|defalias|
|00003b40| 20 27 63 6f 6e 78 2d 73 | 74 61 74 73 20 23 5b 6e | 'conx-s|tats #[n|
|00003b50| 69 6c 20 22 c0 c1 21 71 | 88 65 64 7c 88 c2 c3 0c |il "..!q|.ed|....|
|00003b60| 5c 22 88 c5 c6 65 64 23 | 87 22 20 5b 67 65 74 2d |\"...ed#|." [get-|
|00003b70| 62 75 66 66 65 72 2d 63 | 72 65 61 74 65 20 22 2a |buffer-c|reate "*|
|00003b80| 63 6f 6e 78 2d 73 74 61 | 74 73 2a 22 20 6d 61 70 |conx-sta|ts*" map|
|00003b90| 61 74 6f 6d 73 20 23 5b | 28 78 29 20 22 c0 09 21 |atoms #[|(x) "..!|
|00003ba0| 3f ae 93 c2 c3 09 4a c4 | 48 5c 22 63 88 c5 63 88 |?.....J.|H\"c..c.|
|00003bb0| c6 09 21 63 88 c7 63 87 | 22 20 5b 62 6f 75 6e 64 |..!c..c.|" [bound|
|00003bc0| 70 20 78 20 66 6f 72 6d | 61 74 20 22 25 73 22 20 |p x form|at "%s" |
|00003bd0| 30 20 22 09 09 22 20 73 | 79 6d 62 6f 6c 2d 6e 61 |0 ".." s|ymbol-na|
|00003be0| 6d 65 20 22 5c 6e 22 5d | 20 34 5d 20 63 6f 6e 78 |me "\n"]| 4] conx|
|00003bf0| 2d 77 6f 72 64 73 2d 68 | 61 73 68 74 61 62 6c 65 |-words-h|ashtable|
|00003c00| 20 73 6f 72 74 2d 6e 75 | 6d 65 72 69 63 2d 66 69 | sort-nu|meric-fi|
|00003c10| 65 6c 64 73 20 2d 31 5d | 20 34 5d 29 0a |elds -1]| 4]). |
+--------+-------------------------+-------------------------+--------+--------+
